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A 1'licure ou cct ouvragc sortira dcs presses dc rimprimeric, plus de 20 000 
logicicls GFA Basic 2.0 et 3.0 auroni 6l6 vendus. L’engouemcnt et 1c succ£s 
pourcc precicux oulil de programmation reside dans sa simplicity dc mise en 
oeuvre, sa vitessc fulguranle ei scs innombrablcs possibilites aussi bien graplii- 
ques que structurclles. Lc GFA Basic dans sa version 2.0 poss&dc plus de deux 
cent cinquante instructions pcrmcttanl des operations aussi diverses que la ma¬ 
nipulation dcs "lutins", dc la souris, dcs fenetrcs,... ou que les appcls systimes 
au BIOS, XBIOS ou GEMDOS. La version 3.0 porle i plus de quatre ccnls lc 
nombre des instructions et decuple h la fois possibilities et vitessc d'cxdculion. 
Tout (ou presque) devient possible it partir dc cc Basic qui rcssemblc mainlc- 
nant plus au langage Pascal ou au langagc C qu’i un vulgaire interprdteur Basic. 
A 1'instar du Pascal, lc GFA Basic s’inspire du concept de progranimation lisible 
et structunSe : unc scule instruction par ligne, des procedures cl dcs fonctions 
comprenant varialilcs locales et passage de param5trcs par valcur ou par 
adrcssc. Lalisibilitd s'accroft par [’indentation automatique des lignes au furet 
& mesure qu'cllcs sont comprises et validdcs par l'intcrpretcur. Unc panoplic de 
definitions de types permet dc sc passer des declarations dc type i chaquc fois 
que 1'on tape unc variable. En effet, l'intcrpretcur reconnafl les variables et leurs 
colic lc suffixe addquat aulomatlqucment. De niCmc, tome nou velle variable ou 
procedure vous sera signaldc : plus d'erreurde saisic possible. 

Cct ouvrage a pour but de servir dc reference pratique; vous trouverez toutes les 
instructions et les fonctions du GFA Basic dderites cl illustrecs par dcs pro¬ 
grammes optimises monirant les possibilitds de l interpretcur. Les instructions 
sont classecs par theme, dans un ordre alphabdliquc qui vous facilitera les rc- 
chcrchcs. Deux index, un alphabdiique dc l'cnsemblc dcs instructions du GFA 
Basic 3.0 et un second sur seulcmcnt celles du GFA BAsic 2.0 propose sont i 
la fin du livrc. 
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EDITEUR 
DU GFA BASIC 



LES MENUS DE L'EDITEUR 



Save : sauvcgardc du programme en cours. 

Load : chargcmcnt d’un programme i partir d’unc unite dc disque. 

Save,A: sauvegarde sous forme de fichicr ASCII (extension .LST) dircetement 
rdcu|x5rable depuis un trailcment de textes ou une base dc donndcs. 

Merge : integration au programme en cours d’un fichier ASCII (.LST), cc qui 
pennet d’ecrirc un programme i partir de procedures sauvcgardecs precedcm- 
ment. 

Quit: met fin i la session dc program mation en Basic GFA. ct re tour au bureau 
dc GEM. 

Llist: imprime lc listing du programme en cours. Attention il nc failpas de saut 
de page! 

New : cflacement du programme en cours. 

Block : operations sur les blocs. Appuyez sur la premiere lettrc dc l'oplion 
souhaitee ou clique/, dessus avec la souris. 

Copy : copic le bloc seicctionne i partir dc l'emplaccmcnt du curscur. 

Move : deplace le bloc seiectionne S I'cmplacement du curseur. 

Write : ecrit le bloc seicctionne sur disque. 

Llist: imprime le bloc seicctionne. 

Start: Ic curseur se positionne sur la marque dc debut de bloc. 

End : lc curscur se positionne sur la marque de fin dc bloc. 

A DeI: detruil le bloc seicctionne. 

Hide : deseicctionnc lc bloc. 


New : efface lc programme courant de la memoirc. 
Blk Sta : marque lc debut d’un bloc. 


Editenr 


Editeur 
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BIk End : marque la fin d'un bloc. 

Replace : recherche et rcmplaccmcnt d'un mot ou dune portion dc mot. 

Find : recherche d’un mot ou d'unc portion dc mot. 

Pg up : monte d'une pagc-dcran dans le programme. 

Pg down : descend d'unc pagc-dcran dans le programme. 

Text 16 ou Text 8 : affichage en 8 ou 16 pixels de hauteur de caraclirc. 

Insert ou Overwrite : mode d'dcriture en insertion ou cn rccouvrcmcnt. 

Direct: passage en mode direct; on revient cn tapant sur la touche ESC cn 
version 2.0 ou ed cn 3.0. 

Flip : passage sur la fcnCtre de restitution. 

Run : lanccmcnt d'un programme. 

Test: regarde si tous les blocs, boucles ou procedures sont fcrmds correcte- 
ment. 



On passe dans ce nouveau menu en choisissant 1'ilcm sous le symbole Atari: 
"Editor" ou "Menu”. 

Save : revient & l'dditeur et demande le nom dans lequcl il faut sauvegardcr le 
programme courant. 

Load : revient il l'dditcur ct demande le nom du fichier qu'il faut charger. 

Deflist: determine le mode dc visualisation (nous conscillons le mode 2). 

Nouveaux norns : le GFA Basic vous demandera de confimtcr toules les 
nouvellcs variables ou procedures que vous cvicz. Ainsi, il n'y aura plus de 
risque d'utiliscr deux noms d'ortitographes iris voisincs. 





LES TOUCHES DE FONCTIONS 
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SHIFT-Fl : Save 
FI : Load 

SH1FT-F2 : Save,A 
F2 : Merge 

SHIFT-F3 : Quit 
F3 : Llist 

SH1FT-F4 : New 
F4 : Block 

SHIFT-F5 : Blk Sta 
F5 : Blk End 

SHTFT-F6 : Replace 
F6 : Find 

SHIFT-F7 :Pgup 
F7 : Pg down 

SHIFT-F8 : Text 16/Text 8 
F8 : Inseit / Overwrite 

SH1FT-F9 : Direct 
F9 : Flip 

SHIFT-F10: Run 
F10 : Test 


LES COMMANDES DE L'EDITEUR 

A B : marque de ddbut de bloc. 

A C : passe i la page suivantc. 

A Delete : supprime la ligne du curseur. 

A E : rcmplaccmcnt du texte. 

A F : recherche d’un texte. 

A Fleche bas : passe il la page-dcran suivantc. 
A Flcche droite : place le curseur cn tin de ligne. 
A Fleche gauche : place le curseur cn ddbut de ligne. 
A Flechc liaut: rcvient a la page-dcran prdcddentc. 

A I Tome : place le curseur au dtSbut du programme. 
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Editeur 



A K : marque dc fin dc bloc. 

A N : insure une ligne. 

A Q : appcl du menu Bloc (idenlique a F4). 

A R : nevient & la page pnSciSdentc. 

A Tab : rccule lc curscur d'unc tabulation. 

A U : annulc l'action pnSciSdentc (version 3.0). 

A Y : efface la ligne oil se trouve le curseur. 

A Z : saut en fin de programme. 

Backspace : supprime le caractiSrc pnSciSdent le curscur. 

Delete : supprime le caracltSre sous le curseur. 

Fleche bas : displacement du curseur d’unc ligne vers lc bas. 
Fl&che droite : displacement du curseur vers la droitc. 

Fltche gauche : displacement du curseur vers la gauche. 
Fltchc haul: displacement du curscur d'une ligne vers le haut. 
Help : permet de replier ou de diSplier une procedure. 

Home : place le curseur au dtSbul de la pagc-<Scran. 

Return ou Enter : passe & la ligne suivantc. 

Shift A E : module de remplacemenl. 

Shift A F : module dc recherche. 

Tab : avancc lc curscur d’une tabulation. 

Undo : annule Taction pnSciSdenle (version 2.0). 

Le signe A signific qu’il faut appuyer sur la touche Control. 




COMMANDES 
ET INSTRUCTIONS 
DE BASE 




Dans lous les langagcs, il existc dcs instructions et dcs commandes quc Ton ne 
pcut classifier dans aucunc catdgorie, ccpendant, il est important de bicn les 
connaflre. 


LES DEFINITIONS DE TYPES 

Hn debut dc programme, il cst conseilie de ddfinir toutes les variables avec leur 
type. Le GFA Basic autorise, dans unc ccrlaine mesure, ccs definitions globales 
sans toutefois atteindre la precision dcs definitions des langagcs Pascal ou C. 
On remarquera quc les instructions dc definition dc type ont parfois un 
comportcmcnt bizarre. Nous vous conscillons d'utiliscr le mode DEFLIST 2 
afin dc voir claircmcnt il l'affichage 1c suffixe de type dc chaquc variable. 

Voici la listc dcs definitions possibles : 

DEFBIT DEFLIST 

DEFBYT DEFSTR 

DEFFLT DEFWRD 

DEFINT 

DEFBIT ch$ 

ch$ : expression alphanumeriquc. 

Cette instruction definit une ou plusicurs variables booiecnnes. 

DEFBYT ch$ 

ch$ : expression alphanumeriquc. 

Cette instruction definit une ou plusicurs variables entires codees sur un octet. 
DEFFLT ch$ 

ch$ : expression alphanumeriquc. 

Cette instruction definit unc ou plusicurs variables en virgule fiottante codec sur 
huit octets. 

DEFINT ch$ 

chS : expression alphanumerique. 

Cette instruction definit unc ou plusicurs variables entities signdes codees sur 
quatre octets, c’est-il-dirc un mol long. 

DEFLIST n 

n : expression numdrique entiere. 

Cette instruction definit le mode d'affichage des variables, des procedures et des 
lonctions. 

0 --> les mots clefs du GFA Basic sont affiches en majuscules, les noms des 
variables, dcs procedures et dcs fonctions utilisatcurs sont affiches en minus¬ 
cules ; 
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1 —> les mots clefs du GFA Basic, les noms dcs variables, dcs procedures ct dcs 
fonctions utilisateurs sont affichds avec leur premiere leure cn majuscules ct lc 
resie en minuscules; 

2 —> les mots clefs du GFA Basic sont affichds en majuscules, les noms dcs 
variables, des procedures et dcs fonctions utilisateurs sont affichdcs cn minus¬ 
cules avec lc suffixe corrcspondant au type ; 

3 --> les mots clefs du GFA Basic, les noms des variables, des procedures ct dcs 
fonctions utilisateurs sont affichds avec leur premiere lettre cn majuscules ct lc 
rcste en minuscules. Le suffixe corrcspondant au type est placd par lc GFA 
Basic. 


DEFSTR ch$ 

chS : expression alphanumdrique. 

Cette instruction ddfinit unc ou plusieurs variables alphanumdriqucs. 

DEFWRD ch$ 

ch$ : expression alphanumdrique. 

Cette instruction ddfinit unc ou plusieurs variables entidres signdcs coddes sur 
deux octets, e’est-^-dire un mot 


LES COMMANDES SUR LES FICHIERS 

Voici la listc dcs fonctions ct dcs instructions ndpcrtoriecs dans cc paragraphe : 

CHAIN PSAVE 

EDIT QUIT 

LIST RUN 

LL1ST SAVE 

LOAD SYSTEM 

NEW 


CHAIN fichier 

fichicr: expression alphanumerique. 

Cette instruction precede au chargcmcnt d'un programme cl it son execution. 
Toules les specifications suivantes sont permises simultanemcnt pour lc nont 
dc fichicr: 

- le nom dc l'unite dc disquettes (ou de disque dur). 

Par exemplc, CHAIN "B:PROGRAM.GFA" charge ct execute le programme 
PROGRAM.GFA de l’unitd B ; 

- CHAIN utilise dgalcmcnt lc sysldme de dossiers, par exemplc, CHAIN 
\iossier2\dossicrPPROGRAM.GFA" charge ct execute le programme 
PROGRAM.GFA du dossicrl, contenu dans le dossicr2 (indiqud par\ qui doit 
prdedder tout nom dc dossier). 



EDIT 

Celle instruction pcrmct d'entrcr dans le mode dditcur. 

LIST fichier 

fichicr: expression alphanumdrique. 

Cette instruction provoque 1’affichage du programme cn cours it I'dcran ou sur 
une disquette sous forme de fichicr ASCII. Touies les specifications suivantes 
sont permiscs simultandmcnt pour le 110 m de fichier : 

- le nom de l'unitd de disquettes (ou de disque dur). 

Par exemple, LIST "B:PROGR AM.LIS" listc le programme en cours sur le 
fichicr PROGR AM.LIS de l'unitd B ; 

- LIST utilise dgalcmcnt le systdme de dossiers, par exemple, LIST 

'\lossicr2ViossierlNPROGRAM.LIS'TisteIe programme cn cours surle fichicr 

PROGRAM .LIS du dossicrl, contenu dans le dossier2 (indiqud par\ qui doit 
prdedder tout nom de dossier). 

LLIST 

Jmprime le listing du programme dans le formal choisi grace it DEFLIST. 
Attention, l'imprimante doit dire impdrativement relide au systdme ! 

LOAD fichier 

fichicr: expression alphanumdrique. 

Ccuc instruction proedde au chargcmcnt du fichier cn mdmmoirc ccnlrale. Cc 
fichicr doit etre un fichier d’extension .GFA sauvegardd avee le Basic GFA. 
1 outes les spdcificalions suivantes sont permiscs simultandmcnt pour le nom 
de fichier: 

- le nom de l'unitd de disquettes (ou de disque dur). 

Par exemple, LOAD "BtPROGRAM.GFA" charge le programme 
PROGRAM.GFA de l'unitd B ; 

- LOAD utilise dgalcmcnt le systdme de dossiers, par exemple, LOAD 
\Jossicr2\dossierl\PROGRAM.GFA" charge le programme PROGR AM.GFA 
du dossiei 1, contenu dans le dossicr2 (indiqud par\ qui doit prdedder tout nom 
de dossier). 

NEW 

Efface le programme qui sc trouve cn mdmoirc ccnlrale ct nelloic les variables. 
PSAVE fichier 

fichicr: expression alphanumdrique. 

Cette instruction sauvegarde un programme avee un cn-tcte "auto-start", e'est- 
il-dirc qu’il sera impossible de lister le programme puisque cclui-ci se lancera 
automatiquement lore de son chargcmcnt avee (instruction LOAD. Toutes les 
spdcificalions suivantes sont permiscs simultandmcnt pour le nom de fichier: 

- Ie nom de l'unitd de disquettes (ou de disque dur). 

Par exemple, PSAVE "B:PROGRAM.GFA" sauvcle programme en cours sur 
le fichicr PROGRAM.GFA de l’unitd B ; 

- PSAVE utilise dgalcmcnt le systdme de dossiers, par exemple, PSAVE 
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’\dossier2Viossicr1\PROGRAM.GFA’' sauve lc programme en cours sur 1c 
fichier PROGR AM.GFA du dossier I, contcnu dans le dossicr2 (indiqud par\ 
qui doit prdcddcr tout nom de dossier). 

QUIT [n] 

n : expression numdrique entidre. 

Cette instruction provoque l'arrct du programme et permet dc quitter l'interprd- 
tcur directcmcnt sans passer par le menu. 

Lc paramdlre csl renvoyd au programme appelant (gdndralcmcnt lc bureau dc 
GEM). 

RUN 

Cette instruction cxdcute lc programme en mdmoirc centrale. 

SAVE Itchier 

Itchier: expression alpbanumdrique. 

Cette instruction sauvegardc le programme sur disque. Toutes les spdcifica- 
tions suivantes sont permiscs simultandnicnt pour le nom dc fichicr: 

- lc nom dc l'unitd dc disqueltes (ou dc disque dur); 

Par exemplc, SAVE "B:PROGRAM.GFA" sauve le programme en cours sur 
le fichicr PROGRAM.GFA de l’unitd B ; 

- SAVE utilise dgalcmenl le systdme dc dossiers, par exemplc, SAVE 
'\lossicr2\dossierl\PROGR AM.GFA" sauve lc programme en cours sur le 
fichicr PROGRAM.GFA du dossicrl, contcnu dans le dossier2 (indiqud par\ 
qui doit prdedder tout nom dc dossier). 

SYSTEM [n] 

n : expression numdrique entidre. 

Cette instruction provoque 1'arrcL du programme cl permet dc quitter l'inicrpiiS- 
tcur directcmcnt sans passer par lc menu. 

Le parametre cst renvoyd au programme appelant (gdndralcmcnt le bureau de 
GEM). 


LES ENTREES ET LES EDITIONS 

Void la lisle dcs fonclions eldcs instructions rdpcrtoridcs dans ce paragraphe : 

CRSCOL 
CRSLIN 
FORM INPUT 
HTAB 
IN KEYS 
INP 
1NP? 

INPAUX 


I 


LOCATE 

LPOS 

LPR1NT 

MODE 

OUT 

OUT? 

POS 

PRINT 





INPM1D 
INPUT 
INPUTS 
LINE INPUT 
CLS 


PRINT USING 
TAB 
VTAB 
WRITE 


CRSCOL 

Ceue fonciion rcnvoie le numdro dc la colonne du curseur. 

CRSLIN 

Celle fonction rcnvoie Ic numdro dc la lignc du curscur. 

CLS 

Ccltc instruction efface 1'dcran. 

FORM INPUT n AS var 
n : expression numdrique entidre ; 
var: variable alphanumdrique. 

Cctlc instruction permet de modifier une chafne de caracldres limitdc it ur 
certain nombre dc letlrcs spdcirtd par le paramdlrc "n" de manidre scmblablc i 
1 instruction FORM INPUT. L'uniquc difference rdsidc dans le fait que I'an- 
ciennc valcur de la chafne est affichdc avanl la modification. 

Par excmplc, prenons A$="ancicnnc". 

L’instruciion FORM INPUT 8 AS AS demande l'cmrdc d'une nouvellc chafne 
ct 1 aflcctc it AS. 

FORM INPUT n,var 

n : expression numdrique entidre ; 
var: variable alphanumdrique. 

Ccite instruction permet dc saisir unc chafne de caracldres limitdc it un certain 
nombre dc lettnes spdcilid parlc paramdtre "n". La cloche sonnera si I'on tenlc 
d mtroduire plus de n caracldres. 

L instruction FORM INPUT 8,A$ saisit unc chafne contenant au plus 8 
caractdrcs. 

HTAB colonne 

colonne : expression numdrique entidre, 

CelLe instruction positionne le curseur sur la colonne prdcisde. 

INKEY’S 

Cette instruction permet de saisir un caractdrc au clavier. 

AS=INKEYS saisit un caractdrc au clavier cl l'affcctc it A$. 
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INP(n) 

n : expression numdrique emigre. 

Celle fonction proedde it la lecture sur un pdriphdrique et aUcnd la disponibilitd 
de ce dernier, lc cas dchdant, les paramdtres suivanls sont acccptds : 

0 = LST: rimprimantc ; 

1 = AUX: la sonic sdric RS-232C ; 

2 = CON: lc clavier et l'dcran; 

3 = MID: la prise MIDI. 

Par cxemple : 

VOID 1NP(2) attend l'appui d'une touche inddfiniment. 

INP?(n) 

n : expression numdrique entidre. 

Celle fonction rcnvoic l'dtat du port n choisi parmi les suivants : 

0 = LST: rimprimantc ; 

1 = AUX: la sortie sdric RS-232C ; 

2 = CON: lc clavier et l'dcran ; 

3 = MID: la prise MIDI. 

La valeur renvoyde esl soil -1, (TRUE) si un octet cst disponiblc, soil 0, 
(FALSE) s'il ne Test pas. Contrairement it la fonction 1NP, INI 5 ? n’attcnd pas ! 

Par excmplc : 

A=1NP?(2) pennet dc savoir si une touche a did pressde. 

INPAUX 

Cette fonction rcnvoic la chaine dc caracldrcs qui sc trouve dans la mdmoirc 
tampon de l'intcrfacc sdrie RS-232C. 

INPMID 

Cette function rcnvoic la chainc dc caractdres qui sc trouve dans la mdmoirc 
tampon MIDI. 

INPUT [texte,(ou ;)]varl[,var2...] 
texte : expression alphanumdrique ; 
varl,var2,...: variables. 

Cette instruction permet dc saisir des donndcs au clavier. Un texte dc commen- 
taircs bicn que facultatif dclaire l'utilisatcur sur la nature dc la rcqudte. Si un 
point-virgulc sdpaie le texte ctlcs variables, l’affichagc d'un point d'interroga- 
lion et d'un blanc suit cclui du texte. 

Par excmplc : 

INPUT "votre nom, votre age";Nom$,Agc demandc lc nom cl l’age it 1'utilisa- 
teur. 





INPUT$(n) 

n : expression numdrique entidre. 

Ceue fonetton renvoie les n caractdres lus partir du clavier. Le rctour chariot 
est inutile. 

Par exemplc: 

A$=1NPUT$(8) affecte une chaTne de huit caractdres d la variable AS. 

LINE INPUT [textc,(ou ;)] varl [,var2...J 
lextc : expression alphanutndriquc ; 
varl,var2,...: variables. 

Cette instruction permet de saisir une ligne entire jusqu’au rctour chariot 
(RETURN), autorisant ainsi les poncluations telles que la virgule ou le point- 
virgule qui nc sont pas acccpldcs par I’instrucLion INPUT. 

Par exemplc : 

LINE INPUT "Entrczcequ’il vous plait",AS laissc rulilisatcurtotalement libre 
dcs caractdres enuds. 

LOCATE ligne,colonne 

ligne,eolonne : expressions numdriques entidres. 

Cette instruction positionnele curscur it l'interscction de la ligne ct de la colonne 
prdcisdes. 

LPOS(n) 

n : expression numdrique cmidrc. 

Cette fonction ddtermine la colonne d I'intdricur de la mdmoirc tampon de 
l'imprimante dans laquellc sc trouve le curseur d'imprcssion. 

LPR1NT [texte[,K;]] 

textc : expression alphanumdrique. 

Cette instruction envoic un textc ou une expression d rimprimantc. 

MODE n 

n : expression numdrique cnlidre. 

Cette instruction permet de choisir la manidre d'aflichcr les nombres et les 
dates. Ellc est prise cn compte clans les instructions PRINT USING, DATES 
SETTIME ct FILES, 
n: format: date: 

0 #,###.## jj.inm.aaaa 

1 jj/mm/aaaa 

2 #.###,## jy.mm.aaaa 

3 #.###,## jj/mm/aaaa 
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OUT n,o 
OUT #n,o 

n : expression numdrique enlidre ; 
o : octet. 

Cette instruction envoie un octet sur un pdriphdriquc donnd, choisi parmi les 
suivants: 

0 = LST: l’imprimantc ; 

1 = AUX: la sortie sdric RS232C ; 

2 = CON: le clavier el l'dcran ; 

3 = MID: la prise MIDI. 

La valeur du paramdlre o est comprise cnire 0 et 255. Si la valeur spdeifide est 
supdricure, lc systdme prcndra commc valeur (o MOD 256). 

OUT?(n) 

n : expression numdrique entidrc. 

Cette lbnciion renvoic 1'dtat du port n choisi parmi les suivants : 

0 = LST: l'imprimantc ; 

1 = AUX: la sortie sdric RS-232C ; 

2 = CON: le clavier et l'dcran; 

3 = MID: la prise MIDI. 

La valeur renvoyde est soit -1, (TRUE) si un octet a did rc?u, soil 0, (FALSE) 
s’il ne l'a pas did. 

POS(n) 

n : expression numdrique entidrc. 

Cette fonction renvoie la colonne dc l’dcran ou se trouve le curseur. 

PRINT [AT(colonne,ligne) ]|;]|expressicm[,l[;]] 
colonne,ligne : expressions numdriques emidres ; 
expression : expression. 

Cette instruction affiche it la position courantc de I’dcran du texte ou unc 
expression. Si lc suffixe AT(colonne,ligne) suit l'inslruclion PRINT, lc curseur 
est placd d la nouvclle position ct l'afficliagc s'effeciuc it partir dc ccllc-ci. 

Par exemplc : 

PRINT AT 10,12;"BONJOUR M affiche lc mot BONJOUR1 partir dc la I2iemc 
ligne ct dc la 10' colonne. 

PRINT USING for mat expression 1 f;c xpre ssion 2... ] 
fonnat: expression alphanumdrique ; 
expression 1,expression : lisle depression. 

Cette instruction affiche dcs donndcs dans un format prdcis : 

# rcmplace un chiffre ; 

ddtcnninc la position du point ddcimal; 

+ oblige l’affichage des signes "+" ; 

— rdserve dc la place pour un signe "—" dvenluel; 

* tous les 0 en tele de chain® sont rcmplacds par des dtoiles '**; 
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$$ 


affiche un $ on leie dc chafnc ; 
afllchc la virgulc dcs millicrs; 

AAAA format E+nn; 

AAAAA format E+nnn; 

- seul 1c premier caractdre cst affichd ; 

I'intdgralitd dc la chafnc dc caractdrcs cst affielide ; 
afllchc unc chafnc dont la longueur cst dqui valentc au noinbrc dc points 
entre les deux sdparatcurs plus ccux-ci; 
affiche le caracldre suivant. 


& 

\..\ 


Par cxcmple : 

PRINT USING "*###,##"; 102.541 afficlicra *102.54 


TAB(n) 

n : expression numdrique cnticrc. 

Cette instruction provoque n tabulations. Si la position courantc d'affichagc se 
situc d<5jh sur la n' colomic, Ic curscur se place sur la n* coloiuic dc la ligne 
suivame. La fonction TAB s'utilise toujours cn conjonction avee l’instruction 
PRINT. 


Par cxcmple : 

PRINT TAB(10);"ici commenceladixidmccolonnc” afllchc le texte a pariirdc 
la dixidme colonnc. 


VTAB ligne 

ligne : expression numdrique entidrc. 

Cette instruction positionne le curscur sur la ligne donndc. 


WRITE [expression [,][;]] 
expression : expression. 

Cede instruction alllclie *1 la position courantc dc I'dcran du texte ou unc 
expression. 


INSTRUCTIONS DIVERSES 


Voiei la listc dcs l'onclions ct dcs instructions rdpcrloridcs dans ceparagraphe 


CLEAR 

CONT 

DATA 

DEFNUM 

DELAY 

END 

HARDCOPY 

LET 


OPTION BASE 
PAUSE 
READ 
REM 

RESTORE 

STOP 

VOID 
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CLEAR 

Cette instruction efface toules lcs variables ct tous les tableaux de la mdmoirc. 
II est intendit de la placer it l’intdricur d'une structure. 

CONT 

Cette commande direcle rclancc l’exdcution d'un programme aprCis unc instruc¬ 
tion STOP ou un CONTROL-SHIFT-ALTERNATE (le STOP manuel). 

DATA constan(el[,constantc2...] 
const ante l,constante2 : constantes. 

Celle insiruciion stockc dcs donndes it l’intdricur d'un programme. 

DEFNUM n 

n : expression numdrique enlidre. 

Cette instruciion formate lcs nombres affichds par PRINT. Sculs les n premiers 
chiffres d'un nombre sont affichds (1c point ddcintal n’esi pas pris cn comptc). 

DELAY n 

n : expression numdrique entidre. 

Ceite instruction amCte lc programme pendant n secondcs. 

END 

Cette instruction proedde it la fermelure dcs fielders ouverts ct met fin it 
I'exdcution du programme. 

HARDCOPY 

Cette instruction proedde a une impression grapliiquc de l’dcran lout enticr. 
Attention, il faut avoir prdalablcmcni ddfini le formal it imprinter (voir bureau 
de GEM)! 

LET var=exprcssion 
var: variable. 

Cette instruction affccle une expression it unc variable. Cette instruction est 
gdndralemcnt omise. 

OPTION BASE n 

n : expression numdrique entidre. 

Celle instruction ddtermine quel sera lc premier indice de tous les tableaux 
(0 ou 1). 

PAUSE n 

n : expression numdrique cnticrc. 

Pennet d'inclurc dcs pauses dans un programme. Le paramdtre "n" indique le 
laps de temps pendant lcquel lc programme sera interrompu. Unc scconde est 
dquivalente it (n=50). 

L'instruction PAUSE 3000 suspend l'cxdcution du programme pendant 1 
minute. 




READ varl[,var2.„] 
varl,var2...: variables. 

Cette iaslruction lit les donndcs stockdcs en DATA. 
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REM commentaires 
' commentaires 

Cette instruction permet d'inclure dcs commentaires dans un programme. On 
pout remplaccr lc REM par unc apostrophe (’). 

RESTORE label 

Cette instructionpermet.de rcdirigerle pointcurde lecture des donndcs stockdcs 
cn DATA vers unc ligne prdcisdc par le label. 

STOP 

Cette instruction interrompt l'exdculion d'un programme, Scule l’instruction 
CONT pennet de reprendre lc cours de 1'cxdcution. 

VOID expression 
"‘expression 
expression : expression. 

Permet de supprimerlcs variables inutiles que 1'on aliecle lemporairement i unc 
fonction du type LNP ou FRE. 
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LES OPERATEURS ARITHMETIQUES 


Lc GFA Basic 3.0 possddc les huiL opdrateurs arithmdliqucs suivams : 

+ addition, par cxcmple : 3=2+1 ; 

sousiraction, par cxcmplc : 5=8-3 ; 

* multiplication, par cxemplc : 12=3*4 ; 

/ division, par exemplc : 8=64/8 ; 

signc ndgatif, par cxcmple : -7 ; 

A opdratcur puissance, par cxcmplc : 256=2 A 8 ; 

D1V ou \ division cntidrc, par cxcmple : 22 D1V 3=22\3=7 ; 

MOD rcstc dc la division enticrc (modulo), par cxcmple : 22 MOD 7=1. 
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LES OPERATEURS DE COMPARAISON 

Lc GFA Basic 3.0 dispose dcs six opdrateurs dc comparaison suivants : 
= dgulitd (it nc pas confondre avcc cclui d'affcctation); 

< strictcmcnt infdricur; 

> strictcmcnt supdrieur; 

=< ou <= infdricur ou dgal; 

=> ou >= supdrieur ou dgal; 

<> dilTdrcnt dc. 

Le rdsultat d'unc comparaison cst un booldcn ; TRUE ou FALSE. 


LES OPERATEURS LOGIQUES 


Les variables booldcnncs possddcnt leurs propres opdralcurs; les o|)dratcurs 
logiques: 


AND (ET logique) 
X Y 

TRUE TRUE 
TRUE FALSE 
FALSE TRUE 
FALSE FALSE 


OR (OU 
X 

TRUE 

TRUE 

FALSE 

FALSE 


logique) 

Y 

TRUE 

FALSE 

TRUE 

FALSE 


X AND Y 
TRUE 
FALSE 
FALSE 
FALSE 


X OR Y 

TRUE 

TRUE 

TRUE 

FALSE 


Operateurs 



Operateurs 



XOR (OU logique cxclusif) 


X 

Y 

X XOR Y 

TRUE 

TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

FALSE 

TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

NOT (NON logique) 


X 

NOT X 


TRUE 

FALSE 


FALSE 

TRUE 


IMP (implication logique) 

X 

Y 

X IMP Y 

TRUE 

TRUE 

TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 

TRUE 

FALSE 

FALSE 

TRUE 

EQV (equivalence logique) 

X 

Y 

X EQV Y 

TRUE 

TRUE 

TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 

FALSE 

FALSE 

FALSE 

TRUE 


Tabic dcs prioritds dans l’ordrc ddcroissant: 

0 les parentheses; 

A opdratcur puissance; 

+ el - signes ; 

* ct / multiplication ct division ; 

DIV ct MOD division emigre ct modulo ; 

+ ct - addition ct soustraction ; 

=, <>, <, >, <=, ct >= opdralcurs dc comparison ; 

AND, OR, XOR, NOT, IMP, ct EQV opdratcurs logiques. 



VARIABLES, 
TABLEAUX 
ET POINTEURS 




VARIABLES 

Le Basic GFA 3.0 rcconnafl six types distincts dc variables, les variables 
rdcllcs.les variables entires surun, deuxou quaLre octeLs, etenfin les variables 
booldennes ct alphanumdriqucs. Les noms de variables doivent toujours 
commcnccr par une lettre et comportcnt un nombre queleonque de paraetdres 
(il est loutefois conscilid d'dvilcr les noms trop longs) d'un scul tenant el tous 
significalifs. Le type de cliaque variable csl indiqud par une declaration 
prdalablc (voir 1c chapitre consacrd il l'dditeur) ou bicn par un suffixe explicitc 
qui prdvaul sur loutes les definitions globalcs anierieurement declarecs. Utili¬ 
ses system atiquement les types de variables les plus adapts it voire problemc 
ct nc vous laissez pas tenter par les conversions aulomatiques effcctudes par 
l'intcrprdtcur, ccs facililds vous pdnaliscront lourdement en vous empechant 
d'evoluer vers une programmation struclurdc ou d'adapler vos programmes 
dans d'autres langagcs (C ou Pascal). 

Definition des types de variables 

Les variables rdelles 

Les variables rdclles (ou Float) component le suffixe dislinctif # (ou aucun 
suffixe) ou sont declardes parl’instruction DEFFLT. Elies sont mentorisecs sur 
huit octets cn virgule fiotiantc. La representation des variables rdellcs s'cffcctuc 
dans un intctval le allant dc -2.22507385 8507E-308 it +3.5953862697251E+308. 

Les variables entieres 

Les variables entidres sc subdivisent cn trois categories : 

- les variables entidres signdes du type Integer, qui component le suffixe 
dislinctif % ou sont ddcl aides par 1'instrucUon DEFINT. Flics sont memorisecs 
sur quatre octets. La representation dc ccs entiers s'elTcctue dans un intcrvallc 
allant dc -2147483648 it +2147483647 ; 

- les variables entidres signdes du type Word, qui component le suffixe 
dislinctif & ou sont declares par 1’instrucLion DEFWRD. Elies sont mdinori- 
sdcs sur deux octets. La representation dc ccs entiers s'cffectue dans un 
inlervalle allant dc -32768 it +32767 ; 

- les variables entidres non signdes du type Byte, qui component le suffixe 
distinctif I ou sont ddclardes par l'instruction DEFBYT. Elies sont memorisdes 
sur un octet. La representation de ccs entiers s'ellectuc dans un intcrvallc allant 
dc 0 it 255. 

Les variables booleennes 

Les variables booldcnncs (ou Boolean) component le suffixe dislinctif! ou sont 
ddclardes par l’instruction DEFB1T. Elios sont memorisdes sur un octet. Ccs 
variables ne peuvent prendre que deuxvalcurs: TRUE (vrai, code par la valeur 
-1) ou FALSE (faux, codd par la valeur 0), 
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Les variables alphanumdriqucs 

Les variables alphanumdriqucs (oli String) component lc suflixe distinct if $ ou 
sont ddclardcs par l'instruction DEFSTR. Ccs variables conticnnenl au plus 
32767 caractfcres, chaquc caractdrc dlanl codd sur un octet. Lcur manipulation 
interne ndccssitc 1'cmploi d'un descripteur, cn particulier pour connaflre la 
longueur dc la chainc. 

Chacun de ces diffdrents types acccptc la structure tableau (ou champs) avec un 
nombrequclconqucdc dimensions, lasculc restriction provenantdclamdmoire 
disponible. 



Conversions de type 


Voici les fonctions traitdes dans cctlc section : 


CINT 

CVS 

MKS$ 

CFLOAT 

HEXS 

OCT’S 

CVD 

MKD$ 

VAL 

CVF 

MKF$ 

VAL? 

CV1 

MK1.$ 


CVL 

MKLS 



ClNT(x) 

x : expression numdrique. 

Convcrtit lc nombre en virgulc flottantc x en une valeur cnticre arrondie. 


CFLOAT(x) 
x : expression numdrique. 

Convcrtit unc valeur entidre x en un nombre en virgulc flottantc. 

CVD(ch$) 

cb$ : expression alpbanumdriquc. 

Converiit unc chafnc dc huit caractdrcs en unc valeur numdrique Cl FA Basic 3.0. 
CVF(ch$) 

ch$ : expression alpbanumdriquc, 

Convcrtit une chafnc de six caracldres contcnant un nombre au format GFA 
Basic 2.0 (cl antdrieurs) en une valeur numdrique rdcllc GFA Basic 3.0. 


CVI(ch$) 

cliS : expression alpbanumdriquc. 

Convcrtit unc chafnc dc deux cnracldres en mot (16 bits). 

CVL(ch$) 

ch$ : expression alpbanumdriquc. 

Converiit une chafnc dc quatre caracldres en mot long (32 bits). 
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CVS(di$) 

ch$ : expression alphanumdriquc. 

Convert.il une chafnc dc quatre caracldrcs contcnanl unnombre au form al Basic 
Atari cn une valcur numdrique nScllc GFA Basic. 

HEX$(n) 

n : expression numdrique emigre. 

Transformc la valcur n en une chafnc dc caracldrcs correspondanl a la valcur 
hexaddeimale (base 16) dc n. 

Par cxcmple: 

PRINT HEX$(-23) affichc FFFFEFE9. 

PRINT HEX$(26359) affichc 66F7. 

MKD$(x) 

x: expression numdrique. 

Convertit x au format MBasic sur huil oclets. 

MKF$(x) 

x : expression numdrique. 

Convenil x au format GFA Basiesur six octets. 

MKlS(n) 

n : expression numdrique entiere. 

Convertit un entier 16 bits cn une chafnc dc deux caracldrcs. 

MKLS(n) 

n : expression numdrique entidre. 

ConvertiL un entier long 32 bits en une chafnc dc quatre caracldrcs. 

MKSS(x) 

x : expression numdrique. 

Convertit x au format BASIC ST sur quatre octets. 

OCT$(n) 

n : expression numdrique entiere. 

Transformc la valcur n en une chafnc dc caracldrcs correspondanl it la valcur 
octalc dc n (base 8). 

Par cxcmple : 

PRINT OCT$(456) affichc 710 . 

VAL(ch$) 

ch$ : expression alphanumdrique. 

Transformc la chafnc de caractercs cn une valcur numdrique (si cela est 
possible !). 
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VAL?(ch$) 

oh$ : expression alphanumdriquc. 

Renvoie le nombre de caractdres de la chatnc pouvant eire rcprdscntds par unc 
valour numdrique. 

Par cxcmple: 

PRINT VAL?("&367+25") affiche 3. 

Gestion des variables 

CLR varl[,var2,...] 
varl,var2 : variables numdriques. 

Cette insiruciion efface la suite spdeifide de variables, mais pas les tableaux ! 

SWAP varl,var2 

varl,var2 : variables numdriques. 

Cette instruction proedde it l'dcbangc des contcnus des variables varl ct var2, 
& condition que ces variables soienl de memo type. 


TABLEAUX 


Voici les fonctions iraitdes dans ccltc section : 

ARRAYF1LL INSERT 
DELETE QSORT 

DIM SSORT 

DIM? SWAP 

ERASE 


ARRAYF1LL tab(),n 
tab: tableau numdrique. 

Cette instruction permet de remplirl'intdgralild d'un tableau numdrique avec la 
valour n. 

DELETE tab(i) 

i: expression numdrique entidre ; 
tab: tableau. 

Cette instruction ddLruit 1’dldment d’indice i du tableau numdrique ou alphanu- 
mdrique considdrd. Tous les dldmcnts d'indicc supdricur sont ddcalds vers le 
bas, e'est-i-dire que l'dldment d'indice i+1 deviendra l'dldment d'indice i, 
l'dldment d'indice i+2 deviendra l'dldment d'indicc i+1... 

Voir dgalcmcnt l'instruction INSERT. 



DIM tabl(ill[,il2,...])[,lab2(i2I[,i22...])...] 
tabl,tab2...: tableaux ; 

il I,il2...i21,i22...: expressions numEriques entiEres. 

Cette instruction dEfinit les dimensions d'un ou plusicurs tableaux. Lcs paramli¬ 
tres rcprEscntcnt lcs dimensions d’un tableau : il 1 pour la premiEre dimension 
du premier tableau... 

Voir Egalcmcnt la fonction DIM?. 

DIM?(tab()) 
tab: tableau. 

Cette fonction renvoie le nombre d’ElEments d'un tableau donnE. 

Voir Egalcmcnt l'instruction DIM. 

ERASE tabl()[,tab2(),_] 

tabl,tab2...: tableaux. 

Cette instruction efface de la mEmoire les tableaux indiquEs (Equivalent it 
l'instniction CLR pour les variables). 

INSERT tab(i)=exp 
i : expression numErique cntiEre ; 
exp: expression; 
tab: tableau. 

Cette instruction insEre rexpression exp dans le tableau nuinEiiquc ou alphanu- 
mErique considErE au rang d'indice i. Tous lcs ElEments sont dEcalEs vers le 
haul, e’est-^-dire que 1'ElEmcnt d'indice i deviendra 1'ElEmcnt d'indice i+1, 
1'ElEment d'indice i+1 deviendra 1'ElEmcnt d'indice i+2... 

Voir Egalemcnt l'instruction DELETE. 

QSORT tab 1 (ordre)f,n]ftab20] 

QSORT tabl(ordre) WIDTH tab()l,nJUab2()] 

tabl : tableau ; 

tab2 : tableau de mots longs ; 

tab : tableau numEriquc entier ; 

n : expression numErique cntiEre ; 

ordrc : signe +, - ou ricn. 

Cette instruction trie un tableau de type quelconque dans 1'ordre indiquE 
(croissant = +, dEcroissant = -) scion la mElhodc "Quick Sort”; si cclui-ci cst 
omis, 1'ordre choisi par dEfaut sera 1’ordre croissant, lx paramEtrc optionncl n 
indique que seuls les n premiers ElEments doivent eLrc triEs en commengant par 
le premier (indice 0 ou indice 1 scion OPHON BASE). La clause WITH nc 
fonctionnc que sur lcs tableaux de chafncs; lc tableau tab com pone au moiiis 
deux cent cinquante six ElEments et indique la table d'ordrc (la table ASCII cst 
prise par dEfaut lorsquc l'instruction WITH n’est pas spEcifiEc). La coinprElicn- 
sion de 1’usage de cettc table est dEIicatc. En effet, chaquc caractErc se voit 
alTecter un ordre de prioritE, e'est-i-dirc sa position dans la nouvelle table. En 
clair, le code ASCII sert d'indice pourrctrouvcrla prioritE d'un caractErc (dans 
la tabic ASCII, la valcur ct l'indicc sont identiques). 

Voir Egalement l'instruction SSORT. 
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SSORT tabl(ordre)[,n][lab2()] 

SSORT tabl(ordre) WHITH tab()r,nl[tab2()l 

tabl : tableau; 

tab2 : tableau de mots longs; 

tab : tableau numdrique entier; 

n : expression numdrique cntierc ; 

ordre : signe +, - ou ricn. 

CelLe instruction trie un tableau de type quclconquc dans l'ordnc indiqud 
(croissant = +,ddcroissant= -) scion la mdlhodc "SficlI Sort”; si cclui-ci esl oniis 
l’ordre choisi par ddfaut sera 1'ordrc croissant. Le paramelreoptionnel n indique 
que sculs les n premiers dldmcnts doivent fitre trids en commcngant par le 
premier (indice 0 ou indice 1 selon OPTION BASE). La clause WITH nc 
fonctionnc que surlcs tableaux de chatties; le tableau tab comporte au moins 
deux cent cinquantc six dldmenlx ct indique la tabic d'ordre (la tabic ASCII esl 
prise par ddfaut lorsque 1’instruction WITH n’est pas spdeifide). La comprdhcn- 
sion de l'usage de cclle table esl ddlicate. En effet, chaque caractcrc sc voit 
affecter un ordre de prioriLd, e'est-it-dire sa position dans la nouvcllc table. En 
clair, le code ASCII sert d'indicc pour rctrouver la prioritd d'un caracldrc (dans 
la table ASCII, la valeur ct l'indicc sont identiques). 

Voir dgalcmcnl 1'instiuction QSORT. 

SWAP tabl(),tab2() 
labl,tab2 : tableaux. 

Procddc & l'dchangc dcs comcnus des tableaux tableau 1() et tablcau2(), h 
condition que ces tableaux soient de m£mc type. L'dchangc cst trds rapide, 
puisque sculs les dcscriptcurs sont dchangds. 


POINTEURS 

Grace il'instruclion VARPTR (ou V:), I'accds direct cn mdmoirc d'unc variable 
esl rendu possible: VARPTR(var) renvoie l'adresse du premier octet dela zonc- 
mdmoirc ou ccllc-ci cst mdmorisde. Les chafncs de caractdres et les tableaux 
possddenl un descripleur donl l'adresse cst donndc par ARRPTR. 

Le descripleur d'unc chafnc sc compose de six octets ; les quatre premiers 
foumissent l'adresse du premier caracldrc de la chafnc ct les deux derniers 
indiquent la laille de la chafnc. Derridrc la chafnc proprement dilc se trouve un 
dvcntucl octet de remplissage (pour que la longueur soitpairc) suividc l'adresse 
de ddbut du descripleur corrcspondant. 

Le descripleur des tableaux de variables rdcllcs, entieres ou booldcnncs cst 
similairc. Les quatre premiers ocicts foumissent l'adresse du ddbut du tableau, 
tandis que les deux demiers indiquent le nombre de dimensions du tableau. Au 
ddbut du tableau, le nombre d'dldmcnts de chaque dimension cst spdcifid sur 
quatre octets en commcngant par la demidre dimension. Ensuile viennent les 
dldmcnts cux-mdmcs qui occupenirespectivement huiL octets pour les variables 



nSclIcs, quatre pour lcs variables cniicrcs et un soul bit pour Ics variables 
booldcnncs. 

Le dcscripteur dcs tableaux de chafncs dc caractfcrcs sc decompose dgalement 
en six octets. Lcs quatre premiers octets foumissent 1'adrcsse du ddbul du 
tableau, tandis que lcs deux demiers indiqucm Ic nombre dc dimensions du 
tableau. Au ddbut du tableau, le nombre d'dldmcnts de chaque dimension est 
spdeifid sur quatre octets en commenyant par la demiere dimension. Ensuite 
viennent non pas lcs dldmcnls, mais Ics dcscriptcurs dc chaque dldmcnl dans 
l'ordre dcs indices, identiques it ceux indiquiSs pour lcs variables simples, et 
dans chacun de ccs dcscriptcurs sc trouve 1'adrcsse respective dc l’dldment en 
question. 

Voici lcs fonctions et lcs instiuclions traitdes dans ccttc section : 


* 

DPEEK 

POKE 

{) 

DPOKE 

SDPOKE 

ABSOLUTE 

FLOAT{J 

SINGLED 

ARRPTR 

INTf} 

SLPOKE 

BYTE{) 

LONG{] 

SPOKE 

CARD(} 

LPEEK 

TYPE 

CHARD 

LPOKE 

V: 

DOUBLED 

PEEK 

VARPTR 


ABSOLUTE var,adr 

var: variable; 
adr: mot long. 

Cette instruction modific I'emplaccmcnL dc la variable indiqudc. Ellc la place 
it parti rdc 1'adrcsse adr. La variable peul fit re dun type quclconquc, saurde type 
tableau. 

ARRPTR(var) 

*var 

var: variable. 

Cette fonction rcnvoic 1'adrcsse du dcscripteur d'un tableau ou d'unc chatne de 
caractircs. Pourles autres variables, ARRPTR et VARPTR rcnvoientle mcmc 
rdsullat. 

Voir dgalemcnt la fonction VARPTR. 

BYTE{adr} 
adr: mot long ; 

Celle instruction dcrit un octet h 1’adresse adr. 

Voirdgalcment 1'instruction POKE. 
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BYTE{adr} 
adr: mot long. 

Celle function lit un octet it 1’adrcssc adr. 

Voir dgalcmcnt 1'insiruclion PEEK. 

CARD{adr} 
adr: mot long. 

Cette instruction dcrit un mot aux adrcsses adr ct adr+1. 

Voir dgalemenl 1'instruction DPOKE. 

CARD(adr) 
adr: mot long. 

Celte fonction lit un mot aux adrcsses adr ct adr+1. 

Voir dgalcmcnt 1'instruction DPEEK. 

CHAR(adr) 
adr: mot long. 

Cette instruction dcrit unc chaTnc dc caraclircs tcrminde par un octet nul it partir 
dc l'adrcsse adr. 

CHAR(adr) 
adr: mol long. 

Cette fonction lit unc chafnc dc caractires tcrminde par un octet nul it partir de 
l'adrcsse adr. 

DOUBLE{adr} 

adr: mot long. 

Cette instruction dcrit un nombre cn virgule flotlante au format IEEE (sur liuit 
octets) l partir de l'adrcsse adr. 

DOUBLE{adr) 
adr: mol long. 

Cette fonction lit un nombre cn virgule llollanlc au format IEEE (surhuit octets) 
l partir dc l'adrcsse adr. 

FLOAT{adr} 
adr: mot long. 

Cette instruction dcrit un nombre cn virgule flotlante sur liuit octets it partir de 
l’adrcsse adr. 

FLOAT{adr} 
adr: mot long. 

Cette fonction lit un nombre en virgule flottante sur liuit octets it partir de 
l'adresse adr. 



INT(adr) 
adr: mot long. 

Cette instruction dcrit un mot signd (cn complement it 2, entre -32768 cl 
+32767) aux adresses adr et adr+1. 

Voir egalement l'insiruction DPOKE. 

INT{adr) 
adr: mot long. 

Cette fonction lit un mot signd (cn complement a 2, entre -32768 et +32767) aux 
adresses adr et adr+1. 

Voir egalement l'instruction DPEEK. 

LONG (adr) 
fadr} 

adr: mot long. 

Cette instruction dcrit un mol long signd (cn complement a 2, entre -21474 83648 
et +2147483647) aux adresses adr, adr+1, adr+2 et adr+3. 

Voir egalement l'instruction LPOKE. 

LONG{adrJ 

{adr} 

adr: mot long. 

Cette lonction lit un mot long signd (cn complement 5 2, entre -2147483648 et 
+2147483647) aux adresses adr, adr+1, adr+2 et adr+3. 

Voir egalement l'instruction LPEEK. 

PEEK(adr) 

DPEEK(adr) 

LPEEK(adr) 
adr: mot long. 

Ces fonctions renvoieni respcctivcmcnt: 

-1'octct comenu it l'adrcssc adr ; 

-le mot contcnu aux adresses adr et adr+1 ; 

-le mot long signe (cn complementit 2, entre -2147483648 et +2147483647) 
contcnu aux adresses adr, adr+1, adr+2, et adr+3. 

Tous les "Peek" sont executes cn mode supcrviscur. 

Voir egalcmmcnt les fonctions BYTE{}, CARD{}, INT{), LONG{} et {}. 

POKE adr,n 
DPOKE adr,n 
LPOKE adr,n 

adr : mot long ; 

n : expression numerique cntit)rc. 

Ces instructions inscrivent respcctivcment : 

-1'octct n (0-255) it l'adrcssc adr ; 

-le mot n (0-65535) aux adresses adr el adr+1. L'adrcsse adr doit obligatoirc- 
ment Sire pairc; 
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-le mot long n (cn complement 2k 2, enlre -2147483648 ct +2147483647) aux 
adrcsscs adr, adr+1, adr+2 ct adr+3. L’adrcsse adr doit obligatoircmcnt dire 
paire. Lc paramdtre n pcul Sire ndgalif, il cst alors traitS cn complement ik deux. 
Voir dgalement les instructions BYTE{}, CARD{}, INT{), LONG{), {}, 
SPOKE, SDPOKE ct SLPOKE. 

SINGLEfadr} 
adr: mol long. 

Cette instruction dcrit unnombre en virgulc flottantc au formal IEEE (surquatre 
octets) il partir de 1’adrcssc adr. 

SINGLE(adr) 
adr: mot long. 

Cette fonction lit un nombre cn virgulc flottantc au format IEEE (sur quatre 
octets) il partir dc 1'adnesse adr. 

SPOKE adr,n 
SDPOKE adr,n 
SLPOKE adr,n 
adr : mot long ; 

n : expression numerique cnlidrc. 

Ces instructions sont idenliques ik POKE, DPOKE, ct LPOKE, mais cn mode 
superviseur on peut ainsi accedcr aux zones-mdmoircs protegees. 

TYPE(pointeur) 
poinlcur: mot long. 

Cette fonction rcnvoic lc type dc la variable pointde. Nc sen que si Ton travaille 
avec des adresses (variables pidceddcs par unc etoile). Le type renvoyd cst pris 
panni les suivants: 

0 = variable rdclle (Float), variable#; 

1 = variable chainc (Siring), variable$ ; 

2 = variable entidre (Integer), variablc% ; 

3 = variable booldcnne (Boolean), variable! ; 

4 = tableau dc variables rdclles (Float Array), tablcau#(); 

5 = tableau de variables chatncs (String Array), tablcau$(); 

6 = tableau dc variables cnlidres (Integer Array), tablcau%(); 

7 = tableau de variables booldennes (Boolean Array), tableauJO ; 

8 = variable mot (Word), variable* ; 

9 = variable octet (Byte), variablcl; 

12 = tableau dc mots (Word Array), tablcau&O ; 

13 = tableau d'oetets (Byte Array), tablcaulQ. 




VARPTR(var) 

V:var 

var: variable. 

Cette fonction renvoie 1’adrcssc d'une variable d'un type quelconque, sauf dc 
type tableau. L'adressc d'un dldment d'un tableau pcuL cependant etre obtenue. 
Voir dgalemcnt la fonction ARRl’TR, ct *. 

Parcxcmple : 

V:a( 12,56) renvoie l'adressc dc l’dldmcnt d’indices 12 ct 56 du tableau aQ. 




FONCTIONS 

NUMERIQUES 



Dans cc chapitre, nous distinguons deux types dc fonctions, cellc traitant soit 
unc expression ou unc variable en virgulc flouante que nous avons rebaptisd 
rdelle, soit unc expression ou unc variable entire. Lcs denominations prded- 
demment citdes component un abus dc language au sens mathdmatique du 
lerme, toutefois, ccla correspond il la incilleurc representation que Ton ait des 
entiers cl des ndels. 
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FONCTIONS DE VARIABLES ENTIERES 

Lc GFA Basic 3.0 comporte une veritable arillimdtiquc entidre. Le traitement 
des variables rdclles est dgalemcnt cffcclud, mais avee des differences par 
rapport aux versions prdeddentes : 

- si la variable de destination est une variable entidne, lcs conversions de types 
ndeessaires sont effecludes avant lcs calculs. Par cxcmplc : ADD n,2.23 est 
identique il ADD n,2 lorsque n'est unc variable entidre ; 

- le gain dc rapiditd n'est rdcllcmcnt apprdciables qu'avcc lcs variables entidres, 
INC n s’cxdcutc beaucoup plus rapidement que n=n+1 lorsque n est unc variable 
entidre. Toutefois, MUL x.3.45 s’cxdcutc plus rapidement que x=x*3.4.‘5, mdme 
lorsque x est unc variable rdelle ; 

- les conversions soni toujours autornatiques, mais prenez lliabitudc d'utiliser 
lcs types appropridsctd’cffccluercxplicitemcnt lcs conversions (par unc simple 
affectation), ccla afin dc s'habitucr it une structuration souhuitabic ct prdsente 
dans de nombreux langages (C ou Pascal entre autres). 

Void lcs instructions et lcs fonctions traitdes dans cclte panic : 


ADD 

DIVO 

MIJLQ 

ADD() 

EVEN() 

ODD() 

BINSO 

FALSE 

SUB 

CHRSO 

INC 

SUB() 

DEC 

MOD 

TRUE 

D1V 

MUL 



ADD v,n 

v : variable numdrique ; 
n : expression numdrique. 

Cette fonction additionne I'cxpression it la valcur dc la variable. 

Par cxctnple : 

ADD v,2 additionne 2 il la variable v ct sloeke lc ndsultat dans la variable v. 
L’instruction ADD v.n est identique it l'affcctation n=v+n, mais die est 
sensiblement plus rapide (surtout lorsque lcs cdculs s'cffccluent avec des 
entiers). 


Fonctions numeritjues 




ADD(nI,n2) 

nl : expression numdrique; 
n2 : expression numdrique. 

Cette fonction renvoic la valeurdc la somme de 1'cxprcssion nl it l’cxpression 

BlN$(n) 

n : expression numdrique cntidre. 

Cette fonction transiormc la valcur n cn la chafnc de caractdrcs corrcspondanl 
a la valeur binaire de n. 

Par cxemple : 

PRINT BIN$(49) affiche 110001. 

CHR$(n) 

n : expression numdrique cnlidrc. 

255) C f ° nCti0n rcnvoic lc carac,irc dont Ic code ASCII cst n (compris entre 0 ct 
Par cxemple: 

PRINT CHR$(66) affiche B. 

Voir dgalemcnt la fonction ASC. 

DEC n 

n: variable numdrique. 

Cette instruction dderdmente la variable de 1. Cette instruction cst identique it 
SUB n,l ou in=n-l, mais cllccsl scnsiblemcnt plus rapide (surtoul lorsquc les 
calculs s'el'fectucnt avee dcs enliers). 

Voir dgalcment 1'instrucUon INC. 

DIV v,n 

v : variable numdrique ; 
n : expression numdrique. 

Cette instruction divise la valcur de la variable par 1'cxpression. 

Par cxemple : 

DIV v,2 divisc par 2 la variable v ct slockc le rdsultat dans la variable v. 

L instruction DIV v.n cst identique it l'affcctation v=v/n, mais ellc cst sensiblc- 
ment plus rapide (surtout lorsquc les calculs s'effcctucnt avee dcs enticre). 

DIV(nl,n2) 

nl : expression numdrique ; 
n2 : expression numdrique. 

Cette fonction divisc I'exprcssion nl par l’expression n2. 





EVEN(n) 

n : expression numdrique. 

Celle function determine si 1 a variable "n" cst pairc ou impairc. Si elle est paire, 
la valeur -1 est renvoyde, sinon EVEN retoumc 0. 

Par exemplc: 

PRINT EVEN(23) affichc 0. 

PRINT EVEN(4 8) affichc -1. 

Voir dgalcmcnt la fonction ODD. 

FALSE 

Valour booldcnnc "faux", dquivalcntc d 0. 

Voir dgalcmcnt TRUE. 

INC n 

n : expression numdrique. 

Celle instruction inerdmente la variable de 1. Cette instruction cst identique d 
ADD n,l ou it n=n+1, mais elle est sensiblcmcnt plus rapidc (surtout lorsquc les 
calculs s’cffectuent avee dcs entiers). 

Voir dgalcmcnt I'instruction DEC. 

MOD v,n 

v : variable numdrique ; 
n : expression numdrique. 

Cette instruction di vise la valcurde la variable par 1'cxpression ct affecte lc rcste 
it la variable v. 

Par exemplc : 

MOD v,2 divisc par 2 la variable v cl slockc lc reslc de la division entidre dans 
la variable v. 

MOD(nl,n2) ou nl MOD n2 
nl : expression numdrique ; 
n2 : expression numdrique. 

Cette fonction renvoie le rcste de la division entidre de 1'cxpression nl par 
1’cxpression n2. 

MUL v,n 

v : variable numdrique ; 
n : expression numdrique. 

Cette instruction multiplic la valeur de la variable par 1’cxpression. 

Par exemplc : 

MUL v.n multiplic la variable v par la valeur de 1'cxpression n ct stockc lc 
rdsultat dans la variable v. L'iastruction MUL v,n cst identique d 1'affcctation 
v=v*n, mais elle est sensiblcmcnt plus rapidc (surlout lorsque les calculs 
s'cffcctuent avec dcs entiers). 
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MUL(n1,n2) 

nl : expression numdrique ; 
n2 : expression numdrique. 

Celle fonction multiplie les deux expressions cntrcs elles. 

ODD(n) 

Cette fonction reloume -1 si n est impair el 0 si n cst pair. 

Par excmplc: 

PRINT ODD(-56) affichc 0 . 

PRINT ODD(-189) affichc -1 . 
voir dgalctncnt la fonction EVEN. 

SUB v,n 

v : variable numdrique ; 
n: expression numdrique. 

Cette instruction soustrait n de la valcur dc la variable v. 

Par exemple : 

SUB v,2 soustrait 2 de la variable v cl stocke le rdsullal dims la variable v. 
L'insiruction SUB v,n esi identique it raffeciarion v=v-n, mais elle cst scnsible- 
ment plus rapide (surtout lorsquc les calculs s'cffccUicnt avee des eruiers). 


SUB(nl,n2) 

nl : expression numdrique ; 
n2 : expression numdrique. 

Celle fonction soustrait l'exprcssion nl dc I'cxprcssion n2. 

TRUE 

Valcur booldcnne "vrai", dquivalcnl it -1. 


INSTRUCTIONS BINAIRES 


Voici les fonctions ct insiructions traildcs dans cclte partie : 


AND 

BCHG 

BCLR 

BSET 

BTST 

BYTE 

CARD 

EQV 

IMP 


NOT 

OR 

ROL& 

ROL 

ROLI 

ROR& 

ROR 

RORI 

SHL& 


SHL 

SHU 

SHR& 

SIIR 

SHRl 

SWAP 

WORD 

XOR 




Fonctions logiques 

AND(nt,n2) 

nl,n2 : cxpi-cssions numeriques cntiercs. 

Realisation d’un ET logiquc cnlrc nl cl n2. 

n2 AND(nl,n2) 

1 1 1 

1 0 0 

0 1 0 

0 0 0 

EQV(nl,n2) 

nl,n2 : expressions numeriques emigres. 

Realisation dc 1'equivalcnce logiquc entre nl ct n2. Dans le resultat, les bits sont 
mis ^ 1 si les bits dc mcmc rang sont identiques dans nl cl n2 
11 1 n2 EQV(nl,n2) 

1 1 1 

1 0 0 

0 1 o 

0 0 1 

IMP(nl,n2) 

nl,n2 : expressions numeriques entires. 

Realisation dc Implication logiquc entre n 1 ct n2. Dans Ic n<sultat, les sculs bits 
mis it 0 correspondent aux bits de m£mc rang it 1 dans nl ct it 0 dans n2. 

n I D it < a\ 


nl 

1 

1 

0 

0 


n2 

1 

0 

1 

0 


IMP(nl,n2) 
1 
0 

1 
1 


NOT(n) 

n : expression numerique cnti6re. 

Realisation dc la complementation it 1 dc n. Le resultat a tous les bits inverses 
par rapport it ceux de n. 
n NOT n 

I 0 

0 I 

OR(nl,n2) 

nl,n2 : expressions numeriques emigres. 

Realisation d’un OU logiquc entre nl ct n2. 
nl n2 OR(nl,n2) 

1 1 1 

I 0 1 

0 1 1 

0 0 0 
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XOR(nl,n2) 

nl,n2 : expressions numdriqucs emigres. 

Rdalisalion d'un OU exclusif logique cnirc nl ct n2. 
nl n2 XOR(nl,n2) 
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0 1 1 

ooo 

Fonctions de ddealages et de rotations 

ROL(nl,nb) 

ROL&(nl,nb) 

ROL|(nl,nb) 

nl,nb : expressions numdriqucs enlidrcs. 

Rotation de nl vers la gauche. On doit specifier 1c nombre nb de rotations 
dldmcntaires d'un bit. Contraircment aux ddealages, les bits sortis sont rdinlro- 
duits. Les rotations sc font sur tin mot long (aucun suffixe), sur un mot (suffixe 
&, extension du bit 15 aux bits 16 it 31). ou sur un octet (suffixe I, annulation 
dcs bits 8 it 31). 

ROR(nl,nb) 

ROR&(nl,nb) 

ROR|(nl,nb) 

nl.nb : expressions numdriqucs enlidrcs. 

Rotation de nl vers la droitc. On doit specifier 1c nombre nb de rotations 
dldmcntaires d’un bit Contraircment aux ddealages, les bits sortis sont rd intro- 
duits. Les rotations se font sur un mol long (aucun suflixc), sur un mot (sul lixe 
&. extension du bit 15 aux bits 16 it 31). ou sur un octet (suffixe I, annulation 
des bits 8 & 31). 

SHL(nl,nb) 

SHL&(nl,nb) 

SIIL|(nl,nb) 

nl.nb : expressions numdriques enlidrcs. 

Ddcalagc de nl vers la gauche. On doit specifier lc nombre nb de ddealages 
dldmcntaires d'un bit. Les ddealages sc font surun mot long (aucun suffixe), sur 
un mot (suffixe &, extension du bit 15 aux bits 16 it 31), ou sur un octet (suffixe 
I, annulation dcs bits 8 it 31). 

SllR(nl.nb) 

SHR&(nl,nb) 

SHR|(nl,nb) 

nl.nb : expressions nutndriques enLidrcs. 

Ddcalagc de nl vers la droilc. On doit spdeifier le nombre nb de ddealages 
dldmentaircs d'un bit. Les ddealages se font sur un mot long (aucun suffixe), sur 
un mot (suffixe &, extension du bit 15 aux bits 16 it 31), ou surun ocLet (suffixe 
1, annulation dcs bits 8 tl 31). 






Fonctions de manipulations de bits 

RCHG(n,i) 

n,i : expressions numdriqucs entiercs. 

Cette fonction positionne le i e bit de n dans son dial compldmcntairc (mise a 1 
s'il dtait a 0 et misc a 0 s’il dtait a I) et renvoie la valeur obtenue. 

BCLR(n,i) 

n,i : expressions numdriques entidres. 

CeiLe fonction positionne 1c i® bit de n a 0 et renvoie la valcur obtenue. 
BSET(n,i) 

n,i : expressions numdriques entidres. 

Cette lonction positionne le idme bit de n a 1 el renvoie la valcur obtenue. 
BTST(n,i) 

n,i : expressions numdriques entidres. 

Cette fonction teste le i e bit de n. BTST renvoie unc valcur booldcnne : TRUE 
si le bit considdrd cst a 1. FALSE si ce bit csl a 0. Le paramdlrc i doit dire compris 
entrc 0 et 31 (il csl de toutc fa?on rdajustd dans 1’intcrvallc 0-31 par l’intcrprd- 
tcur, avee un AND 31). 

BYTE(n) 

n : expression numdrique cnlidrc. 

Cette fonction renvoie l'octcl poids faiblc (ou infdricur) de I'exprcssion entidrc n. 
CARD(n) 

n : expression numdrique cnlidrc. 

Cette fonction renvoie le mot poids faiblc (ou infdricur) de I'exprcssion 
entidrc n. 

SVVAP(n) 
n : mol long. 

Cette instruction permute les mots poids fort cl poids faiblc dun mot long, e’est- 
a-dirc que SWAP cffectuc l’dchangc dcs 16 bits supdricurs et des 16 bits 
inl'drieurs d'un mot long. 

WORD(n) 

n : expression numdrique entidrc. 

Cette instruction effcctuc l'extension d'un mot a un mot long: le bit de signe (bit 
15) du mot cst recopid dans les bits 16 a 31. Cette opdration assure la conversion 
entrc mots signds et mots longs signds. 


Fonctions numeriques 
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FONCTIONS DE VARIABLES REELLES 


Void lcs fonctions et instructions traildcs dans ccttc partie : 


ABS 

LOGIC) 

SIN 

ACOS 

MAX 

SINQ 

ASIN 

MIN 

SQR 

ATN 

PI 

STRS 

COS 

PRED 

SUCC 

COSQ 

RAD 

TAN 

DEG 

RAND 

TRUNC 

EXP 

RANDOM 


FIX 

RANDOMIZE 


FRAC 

RND 


INT 

ROUND 


LOG 

SGN 


ABS(x) 




x: expression numdrique. 

Cette fonction rcnvoie la valeur absoluc dc x (sans le signe). 

Par cxemplc : 

PRINT ABS(-l) affichc 1. 

ACOS(x) 

x: expression numdrique. 

Cette fonction calcule I’arccosinus tic x, avee x exprimd en radians. 
Voir dgalcmenl les fonctions ASIN et ATN. 

ASIN(x) 

x: expression numdrique. 

Cette fonction calcule l'arcsinus dc x, avee x exprimd en radians. 
Voir dgalcmcnt lcs fonctions ACOS et ATN. 

ATN(x) 

x : expression numdrique. 

Cette fonction calcule l'arctangentc dc x, avee x exprimd cn radians. 
Voir dgalcmcnt lcs fonctions ACOS et ASIN. 

COS(x) 

x : expression numdrique. 

CelLe fonction calcule le cosinus dc x, avee x exprimd cn radians. 
Voir dgalcmenl les fonctions SIN et TAN. 




COSQ(x) 

x : expression numdrique. 

Cette fonction calcule lc cosinus dc x dc manidrc par interpolation avec une 
table dc sinus par intcrvalles dc degrds interne au Gl-A 3.0. Lc paramdtre "x" 
cst exprimd cn degrds. 

Voirdgalement la fonction SI.N'Q. 

DLG(x) 

x: expression numdrique, 

Cette fonction convert it un angle exprimd cn radians cn un angle exprimd cn 
degrds. Elle est particulidrcmcnt utilisdc pour les fonctions COSQ et SI NO 
Voir dgalcmcnl la fonction RAD. 



EXP(x) 

x : expression numdrique. 

Cette fonction calcule rcxponeniiclle dc x. Fonction inverse du logarilhmc 
ndpdricn. 

Voirdgalcmcnt la fonction LOG. 


FIX(x) 

x : expression numdrique. 

Cette fonction retoumc la panic entidre de x, e'est-i-dire ccllc situde avant la 
virgulc. FIX cst dquivalent it TRUNC. 

Parexemplc : 

PRINT FIX(-36.789) affiche -36. 

Voirdgalcmcnt les fonctions FRAC, INT, ROUND el TRUNC. 

FRAC(x) 

x : expression numdrique. 

Cette fonction retoumc la panic ddcimalcdc x, e'est-d-dirc ccllc situde aprds la 
virgulc. 


Parexemplc : 

PRINT FRAC(-36.789) affiche -0.789. 

Voirdgalcmcnt les fonctions FIX, INT, ROUND el TRUNC. 

INT(x) 

x : expression numdrique. 

Cette fonction calcule la panic entidre dc x. Si x cst posilif, la panic ddcimale 
esL tronqude, sinon on arrondi t x dans le sens dcs x ndgat i fs. Attention, INT n'est 
pas dquivalcme i TRUNC pour x ndgat iff 

Par excmple : 

PRINT INT(-36.789) affiche -37. 

Voirdgalcmcnt les fonctions FIX, FRAC, ROUND el TRUNC. 
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LOG(x) 

x : expression numdrique. 

Cette fonction calcule lc logarithmc ndpdrien dc x. 

Voir dgalcmcnt la l'onclion EXl\ 

LOGlO(x) 

x : expression numdrique. 

Celle fonction calcule le logariihme ddcimal dc x. 

Voirdgalemcnt la fonction LOG. 

MAX(cxprl[,expr2,...]) 

cxprl ,cxpr2 : expressions numdriques. 

Cette fonction renvoie l'cxprcssion done la valcur cst la plus grande. 

Par cxemplc : 

PRINT MAX(-56,-12,3) affiche 3. 

Voirdgalemcnt la fonction MIN. 

MIN(expr 1 l,expr2,...]) 

cxprl ,cxpr2 : expressions numdriques. 

Cette fonction renvoie l'cxprcssion dont la valcur cst la plus petite. 

Par cxemplc : 

PRINT MIN(-56,-12,3) affiche -56. 

Voirdgalemcnt la fonction MAX. 

PI 

Valcur dc PI, 3.145926536... 

PRED(n) 

n : expression numdrique enlidrc. 

Cette fonction renvoie rentier qui succdde it n. 

Par cxemplc: 
n=5 

PRINT PRED(n) 
affiche 4. 

Voir dgalcmcnt la fonction SUCC. 

RAD(x) 

x: expression numdrique. 

Cette fonction convertit un angle exprimd en degrds cn un angle exprimd en 
radians. 

Voir dgalcmcnt la fonction DEG. 
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RAND(x) 

x : expression numdrique. 

Celle fonction renvoie un nombre aldatoirc enlier (sur un mot) compris enlre 0 
inclus el x exclu. 

Voir dgalcmcnl 1'inslruciion RANDOMIZE el les f'onctions RANDOM el 
RND. 

RANDOM(x) 

x : expression numdrique cnlidre. 

Ccitc fonction renvoie un nombre aldatoirc compris entre 0 inclus cl x exclu. 
Voir dgalcmcnt l'instruction RANDOMIZE et les fonclions RAND et RND. 

RANDOMIZE [x] 

x: expression numdrique. 

Celle instruction initialise lc gdndralcur de nombrcs aldatoircs. Si le paramdlrc 
"x" esi pixScisd, la sequence dc nombres gdndrds sera fonction du nombre "x”. 
Voir dgalcmcnt l’insiruciion RAND et les fonctions RANDOM et RND. 

RND[(x)l 

x expression numdrique. 

Cette fonction renvoie un nombre aldatoirc compris cm re 0 inclus et 1 exclu. Lc 
paramdtre x cst facullalif, cl mfimc s'il est prdcisd, il n’esl pas pris cn comptc. 
Voir dgalcmcnt l’instruction RANDOMIZE cl les fonclions RAND ct RAN¬ 
DOM. 

ROUND(x[,n]) 

x : expression numdrique ; 

n : expression numdrique entidrc. 

Cette fonction renvoie la valcur arrondie de I'cxprcssion x. Le paramdtre "n" 
indique le nombre de chiffrcs aprds la virgule it conserver lors dc l'arrondi. Si 
n est nul, ROUND retoume un nombre enlier. si n est ndgatif, l'arrondi sc fait 
it la dizaine supdricure avant la virgule. 

Par cxemple : 

ROUND(12,2) affiche 13; 

ROUND(-12,2) affiche -12; 

ROUND(12,-l) affiche 20. 

Voir dgalcmcnt les fonclions FIX, FRAC, INT et TRIJNC. 

SGN(x) 

x : expression numdrique. 

Cette fonction ddtcrminc si l'cxpression x cst positive, ndgativc ou nulle (1,-1 
ou 0). 

Par excmplc: 

PRINT SGN(-5693.98) affiche -1; 

PRINT SGN(5693.98) affiche 1; 

PRINT SGN(O) affiche 0. 
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SIN(x) 

x: expression numdrique. 

Cette fonction calculc lc sinus de x, avec x exprimd cn radians. 

Voir dgalement les fonctions COS ct TAX. 

SINQ(x) 

x : expression numdrique. 

Cette fonction calculc lc sinus dc x dc manidrc par interpolation avee unc table 
de sinus par intcrvallcs dc degnds interne au GFA 3.0. Le parametre "x" cst 
exprimd cn degrds. 

Voir dgalement la fonction COSQ. 

SQR(x) 

x : expression numdrique. 

Cette fonction calculc la racinc carrdc dc x. 

STR$(x) 

x : expression numdrique. 

Transfomic unc valcur numdrique x en la clratne de caractercs con-cspondant 
it la valcur cn base 10 (decimal) dc x. 

SUCC(n) 

n : expression numdrique cnlidrc. 

Cette fonction renvoie l'enticr qui succddc it n. 

Par cxemple : 
n=5 

PRINT SUCC(n) 
affiche 6. 

Voirdgalcmenl la fonction PR ED. 

TAN(x) 

x: expression numdrique. 

Celle fonction calculc la tangente dc x, avec x exprimd en radians. 

Voir dgalcmcnt les fonctions COS et SIN. 

TRUNC(x) 

x expression numdrique. 

Cette fonction renvoie la panic entidre de x cn supprimant purement et 
simplcmcnt sa panic ddcimale. TRUNC cst dquivalcnt ft FIX. 

Par cxemple : 

PRINT TRUNC(-36.789) affiche -36. 

Voir dgalement les fonctions FIX, FRAC, INT et ROUND. 
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TRAITEMENT 
DES CHAINES 
DE CARACTERES 





Ce chapitrc cst dddid il toutcs les fonctions destinies au traitement dcs 
expressions alphanumdriques, il l'exccplion dcs operations tits paniculieres 
conccmant leur manipulation dircctc en mdmoirc, la geslion des tableaux (tri, 
insertion et suppression d’dldments...) ou les conversions. 

Une chafnc alphanumdrique est ddlimitdc par une paire de guillemets (encore 
appclds double quotes). Pourinlroduire un guillemet dans une chafnc, il suffit 
de le rdpetd deux fois, mais il n’apparaflra qu'une seulc fois. L’alTectation sc fait 
avec l'opdrateur = ct la concatenation avee l'opdrateur +. 

Par excniplc: 

chl$="un guillemet"" sc trouve tout seul," 

ch2$=" cn voici deux :.!” 

ch$=chl$+ch2$ 

PRINT ch$ 
affiche 

un guillemet " se trouve tout seul, cn voici deux :"" ! 

Voici les instructions cl les fonctions (raitdes dans ce chapitrc : 


ASC 

MID$ 

SPACES 

INSTR 

MIN 

SPC 

LEFTS 

PRED 

STRINGS 

LEN 

RIGHTS 

SUCC 

LSET 

R INSTR 

TRIMS 

MAX 

RSET 

UPPERS 


ASC(ch$) 

ch$ : expression alphanumdrique. 

Cette fonction rcnvoic 1c code ASCII du premier caractdrc de la chafnc, ou 0 si 
cctte demidre cst vide. 

Par cxemple: 

PRINT ASC("Table”) affichc 84. 

Voir dgalcmcnt les fonctions CHRS ct STR$. 

INSTR([n,]chI$,ch2$) 

INSTR(chl$,ch2$[,n]) 

chl$,ch2$ : expression alphanumdrique ; 

n : expression numdrique entidre. 

Cette fonction recherche la chafnc de caractdrcs ch2$ dans la chafnc chlS en 
commen?ant par la droitc. Si chi $ conticnt ch2$, INSTR rcnvoic la position de 
cclle-ci, sinon la valeur 0 est retoumde. Le paramdtre facultatif "n" permet de 
commencer la recherche ii partir de la position n. 

Par cxemple : 

ch$="traitcmcnt des chafnes de caractdrcs" 
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PRINT INSTR(ch$,"ai",5) 
affiche 18. 

Voirdgalcmcnt la fonciion RINSTR. 

LEFT$(ch$[,n]) 

ch$ : expression alphanumdriquc ; 
n : expression numdrique cniidrc. 

Celle fonciion renvoie 1c premier caractdrc de la chafnc ch$. Si le parameire 
optionncl "n" esi indiqud, lcs n premiers caracteres de la chafnc sont renvoyds. 
Si n esl supdricur ii la longueur de la chafnc, cclle-ci esl renvoyde dans son 
inldgralitd. 

Parcxcmplc : 

ch$="lrailcment dcs chafncs de caractdrcs" 

PRINT LEFT$(ch$,10) 
affiche traitement. 

Voirdgalemcnl lcs fonclions M1D$ ct RIGHTS. 

LEN(chS) 

chS : expression alphanumdriquc. 

Ceue fonciion renvoie la longueur de la chafnc dc caracidres. 

Par cxcmplc : 

ch$="irailement dcs chafncs de caracldrcs" 

PRINT LEN(ch$) 
affiche 36. 

LSET cht$=ch2$ 

chl$ : variable alphanumdriquc ; 

ch2$ : expression alphanumdriquc. 

Celle instruction affcclc la chafnc ch2S if la chafnc chl$ cn jusiifianl if gauche. 
La chafnc chl$ doit cl re prdalablemcnl ddclardc. Son contenu origincl n'a 
aucunc importance, seulc cornplc sa longueur. Si la chafnc ch2S comportc un 
nombre dc caractdrcs supdricur H celui de chl$, l'inscrtion s'intcrrompl dds que 
chiS esl remplie. Dans lc cas contraire, l'cspaccrcstanlest compldtd de blancs. 

Parexcmplc : 
chS=SPACE$(25) 

LSET ch$=”jusiification A gauche" 

PRINT "*";ch$;"+" 

affiche justification i gauche *. 

Voir dgalcmcnt l’inslruciion RSET. 

MAX chl$ [,ch2$,...] 

chl$ : expression alphanumdriquc ; 

ch2$ : expression alphanumdriquc. 

Cette fonction renvoie la plus grande des deux (ou plus) chafncs dc caracieres, 
Voir dgalement la fonction MIN. 




MID$(cli$,i[,n]) 

ch$ : expression aiphanumdrique ; 
i,n : expression numdrique entiiTc. 

Ccltc fonction rcnvoic la sous-chafne de chS comporlantn caracidres ftpartirde 
la idme position. 

Par excmplc : 

ch$="traitemcnt des chafncs dc caractdrcs" 

PRINT MIDS(ch$, 13,2) 
affichc cs. 

Voir dgalcmcnl les fonctions LEFTS ct RIGHTS. 

MID$(ch l$,i [,n ])=ch 2$ 
chl$ : variable aiphanumdrique ; 
ch2$ : expression aiphanumdrique ; 
i,n : expression numdrique cnlidrc. 

Celle instruction rcmplace la sous-chafne de chl$ commcnqant au i e caractdrc 
par n caractdrcs dc la cliafne ch2S (ou la totality dc ch2S si n csl absent). La 
longueur de chl$ n'est pas modifide, les caracldrcs suppldmcntaires sont 
tronquds. 

Par excmplc: 

ch$="trcitimcnt des chafncs de caractdrcs" 

MID$(ch$,3,4)="aitcment" 

PRINT ch$ 

affichc Lrailemcnt des chafncs de caracldrcs. 

MIN ch 1$ [,cli2$,...l 

chl$ : expression aiphanumdrique ; 

ch2$ : expression aiphanumdrique. 

Cette fonction rcnvoic la plus petite des deux (ou plus) chafncs de caractcrcs. 
Voirdgalcmcnt la fonction MAX. 

PRED(ch$) 

ch$ : expression aiphanumdrique ; 

Celle fonction rcnvoic le caractdrc qui prdcdde, dans la table ASCII, lc premier 
caractdrc dc ch$. 

Par cxemple: 
ch$=” table" 

PRINT PRED(chS) 
afliche s. 

Voir dgalcmcnt la fonction SUCC. 
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RIGHTS(ch$[,n]) 

chS : expression alphanumdrique ; 

n : expression numdrique emigre. 

Cette fonclion rctoume le dernier caractdrc de la chafnc ch$. Si le par am cite 
oplionnel n cst indiqud, les n demiers caracteres de la cliafnc sont renvoyds. Si 
n cst supdrieur it la longueur de la chafnc, celle-ci cst renvoyde dans son 
intdgralitd. 

Par cxcmple: 

ch$="traitcmcnt des chafncs dc caractdres” 

PRINT RIGHT$(cli$,10) 
affiche caractdres. 

Voir dgalcment les fonctions LEFTS ct MID$. 


RINS TR([n,] ch 1 $,ch 2$) 

RINSTR(chl$,ch2$[ ,n ]) 

chl$,ch2$ : expression alphanumdrique ; 

n : expression numdrique entidre. 

Cette fonclion recherche la chafnc ch2$ dans la chafnc chi S cncommcmjantpar 
la gauche. Si chl$ conticnt ch2$, RINS1 R rcnvoic la position dc celle-ci, sinon 
la valcurO est rctoumde. Le paraindirc facultatif "n" pcmict de commencer la 
recherche it partir dc la position (n-1). En effet, lorsque vous indiquez ce 
paramdtrc, il (aut rajoutcr 1 it la position ddsirdc pourobtenir un rdsultat correct, 
mdme si ccla ddpassc la longueur de la chafnc (petite erreurdu langagc). 

Par cxcmple : 

chS=" trailement des chafncs de caractdres " 

PRINT RlNSTR(eh$,"cs",LEN(chS)+l) 
affiche 36. 

Voirdgalement la fonclion INSTR. 


RSET chl$=ch2$ 

chl$ : variable alphanumdrique ; 

cli2$ : expression alphanumdrique. 

Cette instruction al'fcctc la chafne ch2S it la chafnc ch 1$ cn jusliiiant it droile. 
La chafnc chlS doit 6trc prdalablcment ddclarde, son contenu origincl n’a 
aucunc importance, scule compte sa longueur. Si la chafnc ch2$ comporlc un 
nombre dc caractdres supdricur it celui dc chi S, l'inscrtion s'interrompt dds que 
chlS cst remplie. Dans le cascontraire, l’cspacc rcstant cst compldtd dc bhuics. 

Par cxemplc : 
ch$=SPACE$(25) 

RSET ch$="justification it droile" 

PRINT ”*";ch$;"*" 

afllchc * justification i droite*. 



SPACE$(n) 

n : expression numdrique emigre. 

Celle instruction ddfinit unc chafnc dc caractdrcs cornposde de n blancs. 

Voir dgalcmcnt les instructions SPC cl STRINGS. 

SPC(n) 

n : expression numdrique entiere. 

Cette instruction, conjointcmcnt ulilisdc avee I'insiruction PRINT, affichc n 
caractdrcs blancs (espaces). Mais contraircmcnt it SPACES, il n’est pas 
possible dc I'utiliscr dans les expressions alphanumdriqucs. 

Par excmple: 
ch$=SPACE$(3) 

PRINT "bonjour";ch$;"d";SPC(5);"tous" 
affichc bonjour it tous. 

Voirdgalcmcnt les instructions SPACES el STRINGS. 

STRING$(n,cli$) 

STRING$(n,code) 

n,codc : expression numdrique cut id re ; 
chS : expression alphanumdrique. 

Cette instruction ddfinit unc cliaTnc dc caractdrcs dc n fois la chaine ou 1c 
caractdrc dont le code ASCII esl indiqud. 

Par excmple : 
ch$="ha" 

PRINT STRINGS(3,cliS) 
affichc hahaha. 

Voirdgalcmcnt les instructions SPACES cl SPC. 

SUCC(chS) 

ch$ : expression alphanumdrique. 

Cette fonction renvoic le caractdrc qui succdde, dans la table ASCII, au premier 
caractdrc dc ch$. 

Par excmple : 
ch$=”table" 

PRINT SUCC(ch$) 

affichc u. Voirdgalcmcnt la fonction PRED. 
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TRIM$(ch$) 

ch$ : expression alphanumtriquc. 

Ceite foncLion renvoie une chalne constitute de la chafnc ch$ privtc dc tous les 
cspaccs dc ddbut ct dc fin dc chaine. 

Par cxcmplc : 
ch$=" cspacc 
PRINT ”*";TRIM$(ch$);"*" 
affiche *espace*. 

UPPER$(ch$) 

cli$ : expression alphanumtriquc. 

Celle inslruclion transforme louies les Icltres minuscules dc la chatnc en 
majuscules (memo les caractircs acccntuds). 

Par cxcmplc : 

PRINT UPPER$("MajusCUlcS") affiche MAJUSCULES. 




EXEMPLES 
DE TRAITEMENT 
DES CHAINES 
DE CARACTERES 




Chaquc programme est donnd dans son intdgralitd ct ddcortiqud alin de vous 
expliquer comment fonctionne les diverses instructions. Lcs programmes 
fonctionncnt dans la mesure du possible dans lcs trois ^solutions de l'Atari ST. 


PALINDROMES ET ANAGRAMMES 

Cc programme se divise en deux parties distinctcs : la recherche d'anagrammes 
et la reconnaissance de palindromes. Un palindrome est un mot qui sc lit dans 
les deux sens. Parcxcmple, ARA, ICI, LAVAL, ESOPE... 

Programme principal 

Les instructions suivantes sont facullalives, toulelois, ellcs facilitcront l'dcri- 
turc du programme. En effet, lorsque les variables sont saisics (mode DEFLIST 
2), cllcs prennent automatiqucmcnl le bon suflixe it raffichagc. 

DEFBYT "b” ddsigne dcs octets ; 

DEFWRD "l.p" ddsigne dcs mots (16 bits); 

DEFSTR "’mot,car" ddsigne dcs chafncs. 

Variable globale: 

b| rdponse ii la bolic de dialogue. 

Procedure palindrome 

Cette procedure teste si un mot est un palindrome, e’est-it-dire si cc mot est dgal 
it son inverse. 

Variable locale : 

mot$ contient le mot it tester. 

Procedure anagramme 

Cette procedure teste si deux mots sont des anagrammes, e'est-i-dire si lcs deux 
mots sont consliluds des memes lettres arrangdes diffdrement. Pour cc lairc, on 
recopic lcs deux mots dans dcs variables lemporaires, puis, on teste l'cxistencc 
de chaquc letlre du premier mot d;uis le second. Enfin, la leltre est enlevdc de 
chacun dcs mots provisoires, alin dc trailer lcs cas des lettres prdsentes plusicurs 
fois. 

Variables locales : 

motl$ contient le premier mot; 

mot2$ contient le second mot; 

ana 1$ contient le premier mot. provisoirc ; 

ana2$ contient le second mot provisoire ; 

car$ contient la Icttrc dc test; 

ana! contient le rdsultat des tests. 
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Fonction inverse_mot$ 

Cette fonction renvoie un mot inverse de maniere recursive. 
Paramiitre : 

motS conticnt le mot it inverscr. 

Variable locale : 

l& longueur du mot it inverscr. 
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Programme : 


PALINDROME £T ANAGRAMME 


’ DEFBYT "b” 

' DEFWRD "l,p" 

' DEFSTR "’mot,car" 

t 

REPEAT 

ALERT 2,"A:ANAGRAMME|B:PALINDROME" , RAND(2)+1, "A|B", b| 
ON b| GOSUB anagramme,palindrome 
ALERT 2,"FIN",1,"OUI|NCN”,b| 

UNTIL bI=1 
END 


PROCEDURES ET FONCTIONS 


PROCEDURE palindrome 
LOCAL mot$ 

CLS 

PRINT 

AT(30,2);CHRS(27)+"p";"PALINDROME";CHR$(27)+»q”;CHRS(10) 
PRINT " Donnez un mot !" 

PRINT 

INPUT " Votre mot ? ",mot$ 

PRINT 

IF mot$=0inverse_mot$(motS) THEN 
PRINT mot$;" est un palindrome" 

ELSE 

PRINT raot$;” n'est pas un palindrome" 

END IF 

RETURN 

« 

PROCEDURE anagramme 

LOCAL motl$,mot2$,analS,ana2$,car$,ana! 

CLS 

PRINT 








AT(30,2);CHR$(27)+ "p";"ANAGRAMME";CHR$(27)+”q";CHR$(10) 
INPUT "premier mot ? ",motl$ 

PRINT 

INPUT "second mot ? ",mot2$ 

PRINT 

anal$=motl$ 
ana2$=mot2$ 
ana!-TRUE 

IF LEN(mctlS)-LEN(mot2$) THEN 
REPEAT 

car$=LEFT$(anal$, 1) 

P&-INSTR(ana2$, car$) 

IF p£-0 THEN 
ana!—FALSE 
ELSE 

anal$=MID$(anal$, 2) 

ana2$=LEFT$(ana2$,pt-l)+ mid$( ana2$,p&+l) 

END IF 

UNTIL anal$="" OR ana!-FALSE 
ELSE 

ana!-FALSE 
ENDIF 

IF ana! THEN 

PRINT motlS;" et ";mot2$;" sont deux anagrammes" 

ELSE 

PRINT mctl$;" et ";mot2$;" ne sont pas deux anagrammes 
ENDIF 
RETURN 

I 

FUNCTION inverse_mot$(mot$) 

LOCAL 1& 
ls-LEN(motS) 

IF 1&>1 THEN 

RETURN RIGHTS(mot$,1)+@inver3e_motS(LEFTS(mot$, 1&-1) ) 
ELSE 

RETURN motS 
ENDIF 
ENDFUNC 


lirenier not ? K, PAIRS 
second not 7 H, PARIS 
h. PAIRS et h. PARIS sont deux anagrannes 


UtMimiliK 

Donnei un not I 
Votre not 7 LAVAL 
LAVAL est un palindrone 
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Exemple de trailement des chaTnes 


NOTATION POLONAISE INVERSE 


Cc programme transformc unc notation algdbriquc normale (inlixdc) cn une 
notation postfixdc (polonaise inverse). 



Programme principal 

Lcs instructions suivantes sont I'acultativcs, toutefois, cllcs facilitcront l'dcri- 
ture du programme. En eflet, lorsquc lcs variables sent saisics (mode DEFL1ST 
2), cllcs prennent automatiqucmcnl le bon suflixc a I'affichagc. 

DEFBYT "i,n,l,p,p_loc" ddsigne dcs octets; 

DEFSTR "ch,p_" ddsigne des chatncs ; 

DEFSTR "exp,car" ddsigne dcs chaTnes. 

Variables globalcs: 
n| taillc dcs piles; 

p_post$() pile postfixdc; 

p_op$() pile dcs opdrateurs ; 

inf exp$ expression inlixdc ft convertir cn notation postfixde. 


Procedure empile 

Cette proeddure empile dans la pile considdrdc la variable alphanumdrique ch$. 
Paramdtrcs : 

ch$ variable it empiler; 

pile$() pile utilisde. 

Variable locale : 

p| pointcur local dc pile. 


Fonction depileS 

Cette fonction rcnvoic le sommet dc la pile considdrdc. 

Paramfctrc: 

pile$() pile utilisde. 

Variable locale : 

p| pointcur local de pile. 


Procedure voir_pi!e 

Cette proeddure affichc la pile spdcifidc. 

Paramdtrc : 

pile$() pile utilisde. 

Variables locales : 

i| indice de bouclc ; 

p| pointcur local de pile. 

Fonction polonaise 

Cette fonction rdcursivc transformc la notation inlixdc cn notation poslfixdc. 
Paramdtrc : 

inf expS expression infixdc; 

Variables locales : 
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long) longueur dc l'expression infixdc ; 
p_car| pointeur de caractircs ; 

p_Ioc| poimeur de pile local; 

car$ caractere courant; 

exp$ expression en cours d'dlaboration. 

Procedure empile_exp 

Cette procedure empile dans la pile postflxdc (p_post$0) l'expression exp$, 
celle-ci n'est pas nulle. 

Fonction priorite 

Cette fonction renvoie la prioritd de 1'opdrateur considdnd. 

Paramdtrc : 

opS opdratcur. 

Variable locale: 

prio| priority de 1'opdratcur. 


Programme : 


NOTATION POLONAISE 


' DEFBYT "i,n,1,p,p_loc" 

' DEFSTR "ch, p_" 

' DEFSTR "exp,car" 

I 

n |“200 

DIM p_post$(n|) 

DIM p_op$(n|) 

p_post$(0)“CHR$(1) 

P _op $(0)=CHR$(1) 

in£_exp$="((8*COS(45)- 

LOG(78/3)+EXP((2*3)+TAN((3+2))*PI))+COS(SIN(3*45*2)))" 
~@polonaise (int'_exp$) 

PRINT "Votre expression : " 

PRINT 

PRINT inf_cxp$ 

PRINT 

PRINT "Notation polonaise : " 

PRINT 

voir_pile(p_post$()) 

~INP(2) 

END 
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PROCEDURES ET FONCTIONS 


PROCEDURE empile(ch$,VAR pileS 0) 
LOCAL p| 

p | =ASC (pile$(0)) 
pile?(pI)=ch$ 

INC pi 

pileS(0) =CHR$ (p |) 

RETURN 

I 

FUNCTION depileS(VAR pile$()) 

LOCAL p| 

pI=ASC(pile$(0) ) 

DEC p| 

pileS(0)-CHRS(p|) 

IF p|=0 THEN 
INC p| 

pile$(0)=CHR$(p|) 

RETURN "" 

ELSE 

RETURN pilcS (p|) 

END IF 
ENDFUNC 

f 

PROCEDURE voir_pile (VAR pileSO) 

LOCAL i|,pI 
pI«ASC(pileS(0)) 

FOR i|-1 TO p| 

PRINT pileS(i|)' 

NEXT iI 
PRINT 
RETURN 

t 

FUNCTION polonaise (inlT_exp$) 

LOCAL long|,p_car|,p_locI,car$,exp$ 

inf_exp$=UPPER$(inf_expS) 

long|“LEN(inf_exp$) 

p_carI=0 

p_locI«0 

expS="” 

REPEAT 

INC p_car| 

car$=MID$(inf_exp$,p_car|, 1) 
SELECT car$ 

CASE " + "MOD", "DIV", 

empilc_cxp 
IF p_loc|>0 THEN 





exp$=@depile$(p_op${)) 

IF Gprioritc(exp$)>=@priorite(car$) THEN 
empile__cxp 
empile (car$,p_op$ () ) 

ELSE 

empile(exp$,p_op$<)) 
exp$="" 

empale(car$,p_op$()) 

INC p_loc| 

END IF 
ELSE 

empile(car$,p_op${)) 

INC p_loc| 

ENDIF 
CASE ")" 
empile_cxp 
WHILE p_loc|>0 

exp$-@depile$(p_cp$()) 

DEC p_loc| 
empile_exp 
WEND 

CASE "(" 

SELECT exp$ 



CASE "SIN","COS","TAN","EXP","LOG" 
empile(exp$,p_op$ <)) 

ADD p_car|,Gpolonaise<MID$(inf_exp$,ADD(p_carI,1)>) 
exp$=0depile$(p_op$()) 
empile_exp 
DEFAULT 

ADD p_car|,Gpolonaise(MID$(inf_exp$, ADD(p_car|, 1)) ) 
ENDSELECT 
DEFAULT 

exp$=oxp$+car$ 

ENDSELECT 

UNTIL car$=")" OR p_car|=long| 

RETURN p_car| 

ENDFUNC 

I 

PROCEDURE empiie_exp 
IF exp$<>"" THEN 

empile(exp$,p_post$()) 
exp$="" 

ENDIF 

RETURN 

I 

FUNCTION priorite(op$) 

LOCAL prio| 


I 
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SELECT Cp$ 

CASE 

prio|=7 
CASE 

prio|-6 

CASE "MOD","DIV" 
prio1-5 
CASE 

prioI=4 
ENDSELECT 
RETURN prioI 
ENDFUNC 


Uotre expression : 

(SIN(3#(CQS(LOG(5/(EXP(545) A 7)I+TAN(SIH(ALPHA + 2))))] 
Notation polonaise : 

3 5 545 EXP 7 A / LOG ALPHA 2 + SIN TAN + COS * SIN 









Ce chapitre pnfscnlc Ics instructions do structures, e'est-it-dirc cclles qui 
permettent d’intervenir sur le ddroulement d'un programme et cn fin de compte 
de lc faire fonctionner. L'abscnce de cos instructions entraftierait un ddroulc- 
ment purcment lindairc, sans aucunc possibility de decision. 

Hormis les instructions de decision, la modularisation csl un aspect extrSme- 
ment important dans un langage puisqu'elle pennet de rdsoudre des probldmcs 
complexes cnles ddcoupant en modules independants beaucoup plus facilcs it 
mettre au point. Les procedures et fonctions sont la clef de voflte de cc style de 
programmation abolissant it tout jamais les incxlricablcs branchcmcnt absolus 
du type GOTO. 

II convicnt de presenter prealablemcnt la notion de pile et de pondc d'une 
variable, afin de comprcndre l'utilisalion des procedures cl fonctions. 

Lors de l'appcl d'une procedure ou d'une fonction, tous Ics pararndtres transmis 
par valcur dans les variables declares dans 1'en-tete (voir 1’instruclion VAR 
pour les autrcs cas), ainsi que les variables locales, sont places dans une pile et 
loute modification csl cffcctuec sur cettezone memoirc. Elies conservent leurs 
valcurs dans Ic corps de la procedure ou de la fonction ainsi que dans toules les 
procedures ou fonctions appeldcs (lant qu'elles n'ont pas die redeclarecs). Lors 
du relour au niveau appelant, leurs valcurs scront deiinitivcment perdues. La 
collision entre deux variables de mCmc nom, l'une interne it la procedure et 
1 autre exiemc, est renduc impossible, seulc la variable locale sera modifiec. 
Toutcfois, une variable qui n’a pas ete ddclaree locale ou declare dans I'cn-t6te 
sera manipuldc commc une variable globale et loute modification sera repercu- 
tde au niveau appelant. Les variables passdes en parametre avec VAR consti¬ 
tuent un cas particulicr; bien que declares dans I’cn-tfile, toutc modification 
sera repercutdc au niveau appelant. Gr5cc it cette sauvegarde dans une pile 
LIFO, on obtient une gestion claim cn fonction du niveau ou Ton sc trouve : & 
un niveau donnd correspond un contcxtc de variables. Cette facility prcnd loute 
sa puissance avec les procedures ou les fonctions recursives. 

Voici les instructions traildcs dans cc cliapitrc : 

DEFFN/FN 
DO/LOOP 
DO/UNTIL 
DO/WHILE 
ELSEIF 
EXIT IF 
FOR/NEXT 

FUNCTION7ENDFUNC 
GOSUB 
GOTO 


1F/ELSE/ENDIF 
LOCAL 
ON GOSUB 

PROCEDURE/RETURN 

REPEAT/UNTIL 

RETURN 

SELECT/ENDSELECT 

VAR 

WHILE/WEND 
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DEFFN func[(parl,par2...)]=exp 
FN func[(parl,par2...)l 
exp,pari ,par2...: expressions. 

Cette instruction ddfinit unc fonctionutilisaleursur unc scule ligne I'cxprcssion 
exp est dvaludc, cn tenant comple des paramdtres facilitates spdeifids. Ceux-ci 
sont locaux i la l'onction. l'appcl s’cffcctuc avec l’instruclion FN suivie du nom 
de la fonciion, ainsi que dc la listc des paramitres si besoin est. 

Voir dgalcmcnt l’instruction FUNCTION. 

DO/LOOP 

Cette instruction execute, cn unc boucle sans fin, toutes les instructions 
comprises entre DO ct LOOP. Seule l’instruclion EXIT permet de sonir de cettc 
boucle ou bicn l'appui simulland sur <CONTROL>, <SHIFT> ct <ALTER- 
NATE> qui sloppe le programme. 

DO WHILE condition/DO UNTIL condition 
LOOP WHILE condition/LOOP UNTIL condition 
condition : expression numdrique booldenne. 

Ccs instructions permettent d'avoir unc panoplic dc boucles avec de multiples 
possibility de contrfile. Les instructions DO et LOOP peuvent sc voir rajouter 
les clauses supplemental res UNTIL et WHILE. Rappclons que UNTIL condi¬ 
tion recherche la verification dc la condition pour sortir dc la boucle ct que 
WHILE condition provoque la poursuilc dc la boucle tant que la condition est 
rcmplie. On obtienl alors neuf boucles possibles (DO/LOOP tout scul y 
compris). 

Par cxemple: 

DO WHILE condilionl 
instructions ... 

LOOP UNTIL condition2 

Cettc boucle sc poursuivra tant que la premiere condition sera rcmplie ou 
jusqu’i ce que la sccondc lc soit. 

DO UNTIL condition 1 
instructions ... 

LOOP WHILE condition2 

Cette boucle sc poursuivra tant que la seconde condition sera rcmplie ou jusqu'H 
cc que la premiere le soit. 

DO WHILE/LOOP est dquivalcnte & l’instruclion WHILE/WEND 
et DO/LOOP UNTIL i l’instruction REPEAT/UNTIL. 

Voir egalcmcnt les instructions REPEAT/UNTIL et WHILE/WEND. 

ELSEIF condition 

condition : expression numdrique booldcnnc. 

Cette instruction dvite les imbrications dc 1F/TIIEN/ELSE qui peuvent vite 
devenir inexlricables. Ellc rcmplacc une sdric destructions IF/ELSE/END1F 
interne i unc autre structure IF/ELSE/ENDIF. Une structure IF/ELSE1F/ 
ELSE/END1F teste tout d’abord la condition aprds IF. Si cettc demidre est 


I 





vdrifide, la suite d’instructions entre le IP ct le ELSEIF qui le suit est cffectude, 
puis la boucle sc tcrmine avcc ENDIF. Sinon la condition aphis le ELSEIF cst 
testdc. Si celle-ci est vdrifide, la sequence destructions entre cc ELSEIF et le 
prochain ELSEIFou ELSE cst cxdculde, puis la boucle se tcnnine avec ENDIF, 
ct ainsi dc suite... Si aucunc condition suivanl un ELSEIF n'est vdrifide, la 
sequence d’instnictions entrc ELSE el ENDIF cst cxdculde. 

Par exemplc: 
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ELSEIF a=2 and a$="titi" 

ELSEIF b$=”toto” 

ELSE 

ENDIF 

Si a=l, lcs instructions situdes aprds lc IF sonl exdcutdcs; sinon si a=2 et 
a$= tili , les instructions situdcs aprds ce ELSEIF sont exdcutdcs; sinon si 
b$="toto", lcs instructions siludes entre lc ELSEIF corrcspondant et lc ELSE 
s’cffcctuent; enfin, cn dernier rccours la sdquence entre le ELSE et ENDIF cst 
exdcutdc. 

Voir dgalemcnt i’instruction IF/THEN//ELSE/ENDIF. 

EXIT IF condition 

condition : expression numdrique booldcnnc. 

Cette instruction sort d'une boucle FOR/NEXT, DO/LOOP (ainsi que les 
combinaisons avcc WHILE ct UNTIL), WHILE/WEND, ou REPEAT/UN¬ 
TIL. Attention, si plusieurs boucies s’imbriqucnt, l’inslruction EXIT permet dc 
sortir du niveau de boucle oil l'on se trouve! Par excmplc : 

DO 

PRINT 

WHILE A<10000 
INCA 

EXIT IF INKEY$=”E" 

WEND 

PRINT 

LOOP 

La sortie s'el'fcctuc au niveau du PRINT prdeddani lc LOOP si l'on appuic sur 
la touche "E". 

FOR i=vdel>ut [DOWNJTO vfin[ STEP pasj/NEXT i 
i: variable numdrique ; 
vdebut.vfin.pas : expression numdrique. 

Cette instruction exdcutc, un nombnc de lois fixd, toutes lcs instructions 
comprises entre FOR ct NEXT. Lors dc 1'cxdcution du FOR, la valcur vddbut 
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cst affectdc ft i. NEXT eflectuc lcs actions suivantes: 

- si le pas cst positif; la variable i est incnSmcntde de ce pas. Si i cst infdrieur ou 
deal h. la valeur vfin. Texdcution sc poursuit it l'instruction suivant FOR ct on 


dgal i la valeur vfin, Texdcution sc poursuil 
itdre encore une fois, sinon on sort de la bouclc; 



- si lc pas cst ndgatif; la variable i est ddcrdmcntde de ce pas. Si i cst supdricur 
i vfin, Texdcution sc poursuit 1l'instruction suivant FOR ct Ton itdre encore une 
fois, sinon on sort de la bouclc. 

STEP prdcisc la valeur du pas d’inerdmentation ou do decrementation. En 
1'abscncc de STEP, le pas prend la valeur 1 par ddfaut. ^utilisation de 
DO WNTO cn lieu de TO alTcctc la valeur-1 aupasctinlerdill'cmploi deSTEP. 


FUNCTION func[(parl,par2...[,VAR varl,var2...1)l 
<5>func[(parl,par2...|,VAR varl ,var2...])l 
pari,pat2...,varl,var2...: variables. 

Cette instruction declare une fonction. Les paramdtres facullatifs parl,par2.. 
sont dcs variables de types quclconqucs (saul de type tableau). Ces variables 
sont locales ilia fonction. L’instruction VAR peut plodder une lisle dc variables 
(tableau y compris), ccllcs-ci sont alors transmises par adresse ct toute modi¬ 
fication dans lc corps de la fonction cntraTnera une modification de la variable. 
Une fonction sc Unit par l’instruclion ENDFUNC, la valeur dc la fonction est 
renvoyde par 1’inslruction RETURN. 11 peut y avoir plusicurs RETURN dans 
une memc fonction. L’appcl se fail dc la rndme manidre qu'une fonction 
classique a ccci pits que le signe @ (arobasc) ou FN doit prdedder lc nom dc 
la fonction. Les fonctions qui renvoient un rdsultal alplianumdrique doivent 
porter le suffixe "$". Les pa ram dt res correspondant it dcs variables prdedddes 
par VAR dans l'en-tdte dc declaration doivent dire des variables ou tableaux ct 
non pas des expressions. Une fonction pcul s'appeler cllc-mdme, on la nomme 
alore recursive (vous trouverez dans ce livre dc nombreux exemplcs). 

Voir dgalcment les instructions PROCEDURE, LOCAL ct VAR. 


GOSUB procedure 

Appel it la procedure considdrdc. 


GOTO label 

Cette instruction oblige 1’inlcrpnStcur d passer d la ligne pointde par lc label. On 
nc l'utilise presque jamais cn GFA Basic 3.0, ce scrail un crime ! 


IF condition[/THEN/]l/ELSE/]/FJMDIF 
condition : expression numdrique booldcnne. 

Cette instruction conditionne Texdcution de sequences d'instructions. Si la 
condition cst vdrifide, lcs instructions comprises entre IF cl ELSE (entre IF ct 
END1F si ELSE est manquant) s’exdcutcnt, sinon la panic comprise entre ELSE 
ct ENDIF est cxdcutde (en 1’abscncc du ELSE, on passe 1 la suite). Quelle que 
soil Tissue du test, l'cxdcution se poursuit it Tinstruciion suivant ENDIF. 





Par exemplc : 

IF Rep$="oui" THEN 
PRINT "merci" 

ELSE 

PRINT "dommagc" 

ENDIF 

LOCAL varl[,var2...] 
varl,var2...: variables. 

Cette instruction declare locales, it la procedure ou it la fonction, les variables 
indiqudcs (impossible avee un tableau). Leurportdc ne ddpassc pas cellc de la 
procedure ou fonction dans laquelle dies auront dtd ddclardcs ou celle d'un 
niveau inldricur. 

ON exp GOSIJR procl,proc2,...,procn 
exp : expression numdrique entidre. 

Cette instruction cxdcule la proeddure corrcspondant au rang indiqud par la 
variable var: si var cst compris enlnc 1 et 2 (2 cxclu) le branchcmcnt esl effectud 
^ la proeddure procl,... Si var cst compris entre n et n+1 (n+1 exclu) le 
branchcmcnt esl effectud it la proeddure procn. Si var est en dehors dc 
Tintcrvalle I..n+1 (n+1 exclu), alors aucun appcl n'esl effectud. 

PROCEDURE proc[(parl,par2...[,VAR varl,var2...])] 
proc[(parl,par2...[,VAR varl,var2...])] 
par 1 ,par2...,var 1 ,var2... : variables. 

Cette instruction ddclare unc proeddure. Les paramdtres facultatifs pari ,par2.. 
sont dcs variables de types quclconques (sauf dc type tableau). Ccs variables 
sont locales it la proeddure. L'instruction VAR peut prdedder une listc dc 
variables (tableau y compris), cclles-ci sont alors transmiscs par adresse et toule 
modification dans le corps de la proeddure en trainer a une modification dc la 
variable. Une proeddure sc Unit par l’instruction RETURN, il nc peut y avoir 
plusicurs RETURN dans unc mcmc proeddure. 

L'appel se fait de la mcmc manidre qu'unccommandc classique, it ccci prds que 
les paramdlrcs doivent se placer entre parcnthdscs, ccux coircspondant it une 
variable prdeddds par VAR dans l'cn-tdtc de ddclaration doivent dire des varia¬ 
bles ou tableaux et non pas dcs expressions, Unc proeddure peut s'appclcr elle- 
meme, on la nomme alors rdcursivc (vous trouvercz dans ce livrc de nombreux 
exemples). 

Voir dgalcment les instructions FUNCTION, LOCAL et VAR. 

REPEAT/UNTIL condition 

condition : expression numdrique booldcnne. 

Exdcute, jusqu’il ce que la condition soil vdritidc, toules les instructions 
comprises entre REPEAT et UN TIL. La condition esl testde en fin dc boucle. 


i 




Instructions de structures 


RETURN 

Ceitc instruction prorogue le rctourd'une procedure. Les variables locales sont 
pcrducs. 

RETURN exp 
exp : expression. 

Cette fonction renvoie 1'cxprcssion exp & la fonction appelante. Les variables 
locales sont pcrducs. 

SELECT var/ENDSELECT 
var: variable. 

Cette instruction appelde instruction de test univcrsclle permet de conditionner 
1'cxdculion de telle ou telle suite destructions en fonction do la valeur de la 
variable entidre ou alphanumdrique, Cette demidre cst convcrtic en une valeur 
numdrique d'aprds les codes ASCII dcs caracldrcs (le calcul du manucl cst faux) 
en commcn^ant par la demidre letlre. Prcnons un cxcmplc : 

"ADCB" est codd avee la valeur suivante: 

66+2 A 8*67+2 A l6*68+2 A 24*65 
B C D A 

"A" cst codd avee la valeur 65. 

On peut ainsi mdlanger dcs tests sur les constantcs alphanumdriques ct numd- 
riques. 

Les divers cas sont ddlenninds par l’inslruction CASE. Elle peut prendre 
plusieurs fonnes: 

CASE constante 

teste si la variable de sdlcction cst dgale it la constante ; 

CASE constantel TO conslanle2 

teste si la variable de sdlcction cst dans Viniervallc considdrd ; 

CASE constantel,constante2,eonstanle3 

teste si la variable de sdlcction est dans la lisle dcs constantcs ; 

ou une combinaison dcs trois : 

CASE constantel,constantc2 TO const an te3, constant e4 
teste chacun dcs cas prdeddents. 

Lorsquc lc test indiqud par CASE rdussil, la sdquencc d'instructions situde entrc 
cc mdme CASE el le suivant, ou DEFAULT ou bien encore ENDSELECT, cst 
exdculdc. Lc programme sc poursuil alors aprds l’instruction ENDSELECT. Si 
la clause CONT cst spdcilide, l'inslruclion CASE ou DEFAULT suivante sera 
ignonde. 

Si l'instruction DEFAULT est prdsente, la sdquencc d'instructions situde entre 
DEFAULT cl ENDSELECT sera cxdcutde lorsquc aucun test n'a rdussi. 

VAR 

Ce mol clef prdsent dans l'en-tete d'uneprocddurcoud’uncfonctiondcvanceles 
variables extemes qui scront modifides dans le corps de la proeddure ou de la 
fonction. L'instruction VAR cst la sculc manidre de pouvoir passer un tableau 
en paramdlre. Voir dgalcmcnt les instructions FUNCTION ct PROCEDURE. 




WHILE condition/WEND 

condition : expression numdrique booldcnne. 

Execute, tant que la condition cst vdrilide, toutes les instructions comprises 
entrc WHILE ct WEND. La condition cst testde cn ddbut dc boucle. 
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Void la li.ste dcs instructions traitdcs dans cc chapitre : 

dump on break gosub 

ERR ON ERROR 

ERRS ON ERROR GOSUB 

ERROR RESUME 

FATAL TRACES 

ON BREAK TROFF 

ON BREAK CONT TRON 

DUMP [code[,fichicr]] 

code.fichicr: expressions alphanumdriqucs. 

Cette instruction permet l'affichagc dcs variables ct dcs labels au cour dc 
l'exdcution. L’dcran peut dtre remplacd par un fichier si cclui-ci est spdeifid. 
L'cxpression code pcul prendre les valeurs suivantes : 

"lettre" : affichage de toutes les variables qui commcncent par la letlre 
indiqude; 

: aflichagc dc tous les labels; 

’'<§>": affichage de toutes les procedures el fonciions. 

ERR 

Cette fonction rcnvoic le code dc I'erreur rcncontrdc. 

ERR$(n) 

n : expression numdrique entidre. 

Celle fonction rcnvoic 1c message, en clair, dc I’erreur dc code n. 

ERROR n 

n : expression numdrique enlidre. 

Cette instruction simulc I'erreur dc code n. 

FATAL 

Cette fonction rcnvoiclc type dc I'erreur; Opourunecrreurnormalcou -1 pour 
les erreurs graves avee un cnvironncmcnl laussd. En gdndral, les erreurs fatales 
conduisent it la destruction du programme. 

ON BREAK 

Cette instruction rdtablit l'arrct nonnal lors dc 1'appui simultand dcs touches 
<CONTROL>, <SHIFT> ct <ALTERNATE>. 

ON BREAK CONT 

Cette instruction poursuit l'cxdculion du programme mdme si les touches 
<CONTROL>, <SHIFT> ct <ALTERNATE> sont pressdes. 


i 
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ON RREAK GOSUB label 

Cette instruction provoquc lc branchcmcnt du programme au label sp^cilid lors 
dc l'appui simultand des touches <CONTROL>, <SH1F1> ct <ALTER- 
NATE>. 

ON ERROR 

Cette instruction rdtablit lc mode normal d’affichage des messages d'cireur. 
ON ERROR GOSUB traitenient 

Celle instruction provoquc le branchemenl it la procedure traitenient lore dc 
I'apparition dune erreur. On doit rdpdtcr l’instruction ii chaque traitenient pour 
que le meme processus sc poureuive it la prochaine erreur. 

RESUME 

CeLtc instruction recommence 1’execution, une nouvcllc fois, it partir dc 
I'instruction qui a provoque l'errcur. 


RESUME NEXT 

Celle instruction recommence l'cxeculion it partir dc I'instruction qui suit cellc 
ayant provoque l'errcur. 

RESUME label 

Cette instruction reconimencc I'cxecution i partir du label specifie. Cette 
instruction, RESUME label, cst la sculc utilisablc pour des erreurs l'atalcs. 

TRACES 

Cette fonction renvoie la prochaine instruction it cxdcutcr. 

TROFF 

Cette instruction desactivc lc traitement dcs erreurs. 

TRON[#n] 

n : expression nutnerique emigre. 

Cette instruction cffectuc la sortie sur le peripherique conccme (ouvert sous lc 
numera de canal n ou sur I'dcran) dc chaque instruction cxdculde. 

TRON traitement 

Cette instruction provoquc le branchcmcnt il la procedure traitement lors de 
l'exdculion de chaque instruction. 




GESTION 
DE LA MEMOIRE 




Cc chapitre traitc dcs instructions lidcs it la gcstion do la mdmoirc. Rcportcz 
VOUS aux chapitres "Variables, tableaux ct pointeure", "Intcrfafage avee les 
autres langagcs" ct ’’Fichicn>" pour trouver les instructions d'accds it la md- 
moire. 

Voici les instructions traildcs dans cc chapitre : 

BASEPAGE 
BMOVE 
FRE 
HIMEM 
INLINE 

BASEPAGE 

Cette variable conticnt l'adrcssc de la basepage dc l'interprdlcur. Cette zone, 
longue dc 256 octets, conticnt les informations suivantes sur l'interprdteur. 
ddplacement information 
0 adresse du ddbut dc la TPA ; 

4 adresse du premier octet la fin dc la TPA+1 ; 

8 adresse du texte du programme ; 

12 longueur du texte; 

16 adresse dc la zone dcs donndcs ; 

20 longueur dc la zone dcs donndcs ; 

24 adresse de la zone BSS ; 

28 longueur de la zone BSS ; 

32 adresse de la zone DTA ; 

36 adresse de la Basepage du programme appelant; 

40 it 43 rdscrvd; 

44 adresse de la chairic d'environnement; 

48 it 127 rdscrvd ; 

128 ligne destruction dont la longueur cst silude dans 1c premier octet. 

BMOVE adrl,adr2,n 
adrl,adr2 : mot long ; 
n : expression numdrique cnlidrc. 

Cette instruction transfdrc n octets de 1’adrcssc adrl 1 l’adrcssc adr2. Lorsque 
les zones mdmoircs se chcvauchcnt, la copic s'cffcctuc sans derasement. 

FRE(x) 

x : expression numdrique. 

CeLte fonction rcnvoic la place encore disponible en mdmoirc principalc. Lc ’ 
paramdtre x n'a aucune importance. 


MALLOC 

MFREE 

MSHRINK 

RESERVE 


HIMEM 

Cette variable conticnt 1’adrcssc du premier octet libre au-dessus du GFA. Le 
GFA cst silud entre BASEPAGE et HIMEM. 
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INLINE adr,n 

adr : variable mot long ; 
n : expression numerique entitle. 

Cette instaiction ddfinit line zone memoire inlcmc au GFA Basic qui permet 
d'inclure dans 1c coips dun programme des routines assembleur, dcs images, 
dcs donndes... Elle ne peut dLre suivie d'aucun commcntaire. En effet, la zone 
est placte lit ou habitueUcmeni sc placcntccs demiers. L'cxprcssion n conticnt 
le nombre d'oetets it observer. La variable adr est initialise avec l’adresse de 
celte zone. 

Lorsquc lc curscur sc situc sur la ligne de l'instruction INLINE, unc ligne de 
menu s'affiche sur la premitie ligne de l'dcran prdsentant les options suivanlcs 
-LOAD pour initialiser lc contenu de la zonepnSalablcmcntddfinic (('extension 
pniddlinic est .INL); 

-SAVE pour sauver lc contenu de la zone pr&tlablcmcnt ddfinic (l'extcnsion 
pniddfinic est .INL); 

-CLEAR pour supprimer la zone ; 

-DUMP pour cffcctucr l'imprcssion de la zone en code hexadecimal; 

-ASM pour pennetlre de commuter avec 1'asscmblcur lorsquc cclui-ci a lance 
lc GFA Basic (avec 1'option "executor un programme"). Les programmes 
assembles seront alors aulomatiquement trailsferds vers la zone rdservee par 
INLINE. 


MALLOC(n) 

n : expression numerique entitre. 

Cette fonction (GEMDOS 72) allouc unc zone libre contcnant n octets cl 
rcnvoie l’adrcssc de ccllc-ci. Si n vaut -1, la Laille de la plus grande zone d'un 
seul tenant, est renvoyde. Avant de demander 1'allocation de zone de taillc 
importante, la zone du GFA Basic doit etre restreinte it l'aide de l'instruction 
RESERVE. Lorsquc la tentative d'allocation dchouc, la fonction rcnvoie une 
valeur negative. 


MFREE(adr) 
adr: mot long. 

Celle fonction (GEMDOS 73) libdrc la zone debutant it l'adrcssc adr ct 
precedcmmcnt alloudc avec MALLOC. L'adresse adr doit obligatoirement 
corrcspondre 1 un bloc alloud avec MALLOC. La valour renvoyee est soil 0 si 
tout s'est bien passe, soil unc valeur negative si unc erreurest survcnuc. 

MSHRINK(adr,n) 
adr: mot long ; 

n : expression numerique enli<ire. 

Celle fonction (GEMDOS 74) diminuc la taillc d'une zone memoire debutant 
it l'adresse adret precedcmmcnt alloude avec MALLOC en la Exam it n octets. 
L'adrcssc adr doit obligatoirement correspond re it un bloc alloud avec MAL¬ 
LOC, sinon la fonction rcnvoie la valeur -40. L'expression n doit etre infericure 
it la taillc precedcntc, sinon la fonction rcnvoie la valeur -67. Si tout s'est bien 
derouie, la valeur nullc est rctoumec. 




RESERVE [n] 

n : expression numdriquc entire. 

Cette instruction lixe la taillc dc la zone mdmoire utilisdc par le GFA Basic h 
n octets Oppression n doit dire multiple dc 256). L'absence de paramfctrc 
rdtablit la situation initiate lors du lanccmcnt de I'interprdteur. II csl conseilld 
dc contr61er n avec soin; cn effet, lc GEM ndeessite un minimum de 16384 
octets pour fonctionncrcorrectemcntil'accroissementde ccttc zone empire sur 
ccllc alLribude au GEM. 





HORLOGE 
ET INTERRUPTIONS 




Void la lisle des instructions traitdes dans cc chapitrc : 


AFTER 
AFTER CONT 
AFTER STOP 
DATES 
EVERY 


EVERY CONT 
EVERY STOP 
SETTIME 
TIMES 
TIMER 


AFTER t (JOSUR procedure 
t: expression numdrique enlierc. 

Celle insLrueiion cntraTnc un appd unique de la proeddure lorsque le temps t cst 
dcould (t cn 1/200 dc seconde). 

AFTER CONT 

Cette instruction nSactivc 1'appcl dc la procedure prdeddemment aclivdc avee 
AFTER GOSUB, puis ddsactivde avee AFTER STOP. 

AFTER STOP 

Cette instruction ddsactive 1’appcl dc la procedure prdeddemment indiqude avee 
AFTER COSUB. 

DATES 

Cette fonction rcnvoic dans une chaliic de caracleres la date au fonnal 
’'jj.mm.aaaa". Elle est aussi considdrdc comme une variable alphanumdrique ct 
peut elre initialisde avee une cltaine au m£mc fonnal par simple affectation : 
D ATE $=" jj .mm. aaaa". 

Voir dgalcment l’instruction MODE. 

EW.RY t GOSUB procedure 

l: expression numdrique entidre. 

CeUe instruction entraine une sdrie d’appels it la proeddure spdeifide. 1'expres- 
sion t (en 1/200 dc seconde) indique la pdriodc qui s'dcoule enlrc deux appels 
success! fs. 

EVERY CONT 

CcLle instruction rdactivc l’appel de la proeddure prdeddemment. activdc avee 
EVERY GOSUB, puis ddsactivdc avee EVERY STOP. 

EVERY STOP 

Cette instructionddsactive 1’appcl dela proeddure prdeddemment indiqude avee 
EVERY GOSUB. 

SETTIME time,date 

timc.dare : expressions alphanumdriques. 

Perm el de mettre it jour l’heure et la date du systdme. Les variables time ct date 
reprdsentent respectivemcnt dcs cliaines de caractdrcs contenant l'hcurc 
(hli:mm:ss) et la dale (jj.mm.aaaa). Voir dgalement l'instruction MODE. 


105 


i 


Horloge et interruptions 



TIME$ 

Cette fonclion renvoic l'heure couranle conscrvde par le systSme dans le format 
"Wi:mm:ss". Elle est aussi considdnde comme unc variable alphanumdriquc el 
peut 6trc initialise avec une chafne au mfimc format par simple affcclaLion : 
TlME$=”hh:ram:ss. Voirdgalemcnt l'instruction MODE. 

TIMER 

Cette fonction determine le temps dcould depuis la mise cn route du syslime. 
La valeur donndc est expriinde en 1/200 de secondc. 



GESTION 
DU JOYSTICK 


I 




Seulcs unc instruction ct deux fonctions pennettent dc manipuler la maneue dc 
jeu. 

STICK mode 

mode : expression numdrique entidre. 

Cette instruction permet dc choisir la nature du pdriphdrique connectd au port 
0 soil mode est dgal it 0 : dans cc cas on teste la souris, soit mode est dgal it 1 
et alors on teste le joystick. 

STICK(port) 

port: expression numdrique cnliere. 

Cette fonction rcnvoic la position du joystick connectd au port considdrd 
(0 ou 1) de la manidre suivanle : 

5 1 9 

\ I / 

4 — 0—8 
/ I \ 

6 2 10 

STRIG(port) 

Celle fonction renvoie 1'dtat du bouton dc feu du joystick connectd au port 
considdrd (0 ou 1) : TRUE, si lc bouton est actionnd, ou FALSE dans le cas 
contraire. 


i 
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Gestion du joystick 









Cc chapitrc sc compose uniqucmcnt de deux instruciions qui piloteni le 
proccsscur sonore dc I'Atari ST : SOUND cl WAVE. 

SOUND canal,volume,note,octave! ,durde] 
canal,volume,note : expressions numdriques emigres ; 
octave,durde : expressions numdriques emigres. 

Celle instruction permet d'dmcttre un son en fonction des paramdtrcs donnds. 
L'Atari ST possddc trois canaux numdnotds de 1 1 3. Le volume est compris 
entre 0 ct 15. Les notes s'dchclonnent entre I ct 12 : 

1 = do ; 

2 = do#; 

3 = rd; 

4 = rd#; 

5 = mi; 
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f — i<i rr , 

8 = sol; 

9 = sol#; 

10 = la; 

11 = la# ; 

12 = si. 

Iluit octaves sont disponiblcs (1 h 8). La durdc esl facultative, clle est exprimde 
cn 1/50 de sccondc. EUe indique le temps d'attente avant I'exdcution de la 
prachaine instruction. En gdndral, on place un SOUND 1,0 pour stopper un son 
sur le canal 1. 

Parcxemple, SOUND 3,11,10,4,1000 reproduit la tonalild du tdldphone (LA 
international) pendant vingt sccondcs. 

L'instruction SOUND pcul aussi se programmer en fonction de la pdrioded'une 
note: SOUND canal,volume,#pdriodef.durdc]. Oncalcule la pdriode ipartirdc 
la frequence d'unc note avec la fonnule suivantc : 

Pdri odc=Trunc (125000/Erdq uence+. 5). 

Par exemplc, SOUND 2,12,#284,1000 produit exactcment la memc note 
pendant la memc durdc que 1'excmplc prdeddent. 

WAVE canal,enveloppe,forme,pdriode,durde 
canal,cnveloppe,forme : expressions numdriques entidres ; 
pdriode,durdc : expressions numdriques entidres. 

Cette instruction permet de faire des effets sonorcs cn combinant les trois 
canaux du ST. Le canal est codd en binairc, chaque bit ayant une attribution : 

1 = canal 1 activd (bit 0); 

2 = canal 2 activd (bit I); 

4 = canal 3 activd (bit 2); 

8 = bruit surlc canal 1 (bit 3); 

16 = bruit sur le canal 2 (bit 4); 

32 = bruit sur le canal 3 (bit 5). 

Le parametrc "enveloppe" spdeifie dc manidre identique au paramdtre "canal", 
les canaux modulds par le gdndrateur d'cnveloppe. La forme de I'cnvcloppe 


Gestion des sons 




Gestion des sons 


codde entrc 0 ct 15 correspond au tableau suivant: 

0, 1, 2, 3, 9 = lindaire ddcroissant; 

4, 5, 6,7, 15 = lindairc ddcroissant, rclombanl brusquemenl; 

11 = lindaire ddcroissant, puis saut brusque ft unc valcur haute ; 

13 = lindaire croissant constant; 

8 = dents de scie ddcroissantes ; 

12 = dents dc scie croissantcs ; 

10 = triangle ddcroissant au ddbut; 

14 = triangle croissant au ddbut. 
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La pdriode est celle de l’enveloppe. La pdriode correspond musicalement & des 
vibratos ct dcs trdmolos. La durdc, cxprimde cn cinquantidmc de secondc, 
indique le temps d'ailente avant 1'exdcution de la prochaine instruction. 



















INTERFACAGE 
AVEC LES AUTRES 
LANGAGES 





Void la lisle dcs instructions trainees dans cc chapilre 


C: 

CALL 

EXEC 

MONITOR 

RCALL 




C:adr([parl,par2. 
adr : mot long ; 
par1,par2... mots ou mois longs. 

Celle function appclle la routine cn lui passant par la pile une listc de paramdres 
qui sont soit des mots pndeddds par W: (pris par ddfaut), soil des mots longs 
prdeddds par L:. Toule erreur dans le passage dcs paramdres, poriant sur leur 
valcur ou leur type (L: ou W:), pcul entrafner un crash gdndral de la machine. 
Au rctour, elle rcnvoic la valeur de rclour ou lc code d'erreur, prdeddemment 
stocks dans DO. 

CALL adr([parl,par2...]) 
adr: mot long ; 

parl,par2... mots ou mots longs. 

Cette fonction appclle la routine cn lui passant par la pile le nombre de 
paramdres et l’adrcsse de la listc de paramdnes qui sont soit dcs mots prdeddds 
par W: (pris par ddfaut), soit dcs mots longs prdeddds parL:. Toute errcur dans 
le passage dcs paramdres, poriant sur leur valeur ou leur type (L: ou W:), peut 
entrafner un crash gdndral de la machine. Au retour, elle rcnvoic la valcur de 
retour ou lc code d’encur, prdeddemment stockd dans DO. 

EXEC m<>dc,fichier,c<)mmande,environnement 
mod : expression numdrique entidrc ; 

fichier,commande,environncment: expressions alphanumdriques. 

Cette instruction ou fonction charge et lance dcs programmes qui rendront le 
contrOlc au programme appelant. Lc paramdre mode pcul prendre deux valcurs 
: 0 qui signifie charger et cxdcuter et 3 qui signifie charger seulemcnt. 

MONITOR [n] 

Cette instruction provoque une instruction illdgalc du MC68000 (code S4AFC) 
et un branchement i la routine pointdc par le vectcur llldgal Instruction (vectcur 
$04) si cc demier a dtd modifid par un monileur. Le paramdre facultatif n est 
chargd dans le rcgistrc DO. 

RCALL adr,tab 

adr : mot long ; 

lab : tableau de mots longs. 

Cette fonction appclle la routine d'adresse adr cn inilialisant Ics registres DO it 
D7 et AO it A6 avec rcspcctivement les valeurs dldmcnts du tableau de mots 
longs d'indicc 0 it 15. Au rctour, elle renvoic la valeur dc rctour ou le code d'er¬ 
reur, prdeddemment slockd dans DO. 
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Interfagage 





EXEMPLE DE 
COMMUNICATION 
GFA BASIC 
ET ASSEMBLEUR 





Chaque programme esi donnd dans son iniegralite ct. ddconique afm dc vous 
expliquer comment fonctionne les diverscs insiruciions. Les programmes 
fonctionnent dans la mesure du possible dans les tnois resolutions de l'Atari ST. 

Addition et multiplication de matrices 

Ce programme effectue dcs additions et dcs multiplications dc matrices 
Programme principal 

Les instructions suivantes sont facultativcs; toulcfois, elles facilileront l'dcri- 
ture du programme. En efi'et, lorsquc les variables sont saisies (mode DEFLIST 
2), elles prcnncnt automatiquement le bon suffixe a 1’affichage. 

DEFBYT ''ij,k,nb,c,r 
DEFWRD "mat" 


Variables globales: 

adr_addq% 

adr_mulq% 

matricel&() 

inatrice2&() 

matrice3&() 


adresse de la routine d'addition ; 
adresse dc la routine de multiplication ; 
premiere malrice ; 
seconde matricc ; 
matricc contenant le rdsultat. 
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Procedure matjnput 

Cette procedure initialise les matrices. 

Paramdtrcs : 

nbl| nombre de lignes ; 

nbc| nombre de colonnes ; 

inal&() malrice. 

Variables locales : 

i|j| indices de bouclc. 

Procedure mat_prinl 

Cette procedure affichc la malrice spdcifidc. 

Parametres: 


H 

c| 

mat&O 

Variables locales 

iUI 

nbl| 

nbc| 

U»l 

c_a| 


ligne de debut d’affichage ; 
eolonne dc debut d'affichagc ; 
matricc ;t afficher. 

indices dc bouclc ; 
nombre de lignes ; 
nombre de colonnes; 
ligne d'affichage ; 
eolonne d'affichagc. 


Function mat mul 

Cette fonction mulliplie deux matrices. 
Parametres: 

premiere malrice; 
seconde matrice; 
malrice contenant Ic rdsultat. 


matl&() 

mat2&() 

tna(3&() 


GFA Basic : assembleur 




GFA Basic: assembleur 
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Variables locales : 


ilJM 

indices de boucle; 

nbll | 

nombre de lignes dc la premiere matrice ; 

nbcl| 

nombre dc eolonnes de la premiere matrice ; 

nbI2| 

nombre de lignes de la secondc matrice ; 

nbc2| 

nombre de eolonnes dc la sccondc matrice ; 

flag! 

indique si 1’opdration cst possible. 

Fonction mat mulq 

Cette fonction multiplic deux matrices cn langage assembleur. 
Paramfctres: 

matl&O 

premiCre matrice; 

mat2&() 

sccondc matrice; 

mat3&() 

matrice contenant lc rdsultat. 

Variables locales 

* 

UM\ 

indices de boucle ; 

nbl 11 

nombre dc lignes de la premiere matrice ; 

nbcl| 

nombre de eolonnes dc la pnemidre matrice ; 

nbl2| 

nombre dc lignes de la seconde matrice ; 

nbc2| 

flag! 

nombre de eolonnes dc la sccondc matrice ; 

indique si l'opdration cst possible. 

Fonction mat add 

Cette fonction additionne deux matrices. 

Param6tres: 

matl&O 

premiere matrice; 

mat2&() 

sccondc matrice ; 

mat3&() 

matrice contenant le rdsultat. 

Variables locales 

; 

»ldl,k| 

indices de boucle ; 

nbl 11 

nombre dc lignes dc la premiere maLrice ; 

nbcl| 

nombre de eolonnes de la premiere matrice ; 

nbl2| 

nombre dc lignes dc la scconde matrice ; 

nbc2| 

nombre de eolonnes de la secondc matrice ; 

flag! 

indique si l'opdration est possible. 

Fonction mal addq 

Cette fonction additionne deux matrices cn langage assembleur. 
Paramfctrcs: 

matl&O 

premiere matrice; 

mat2&() 

sccondc matrice; 

mat3&() 

matrice contenant le rdsultal. 

Variables locales 


i|dl,k| 

indices dc boucle ; 

nbll | 

nombre de lignes de la premiere matrice ; 

nbcl| 

nombre dc eolonnes dc la premiere matrice ; 

nbl2| 

nombre dc lignes de la seconde matrice ; 

nbc2| 

nombre de eolonnes de la sccondc matrice ; 

flag! 

indique si l'opdration cst possible. 


i 




Procedure affichematrice 

Cette procedure affiche Ics matrices et Ie ndsultat dc l’opdration. 
Param&tres : 

matl&() premiere matrice; 

mat2&() scconde matricc; 

mat3&() matricc contenant le nisultat. 

Variables locales: 

i'bll| nombre de lignes dc la premiere matricc ; 

nbcl | nombre dc colonnes de la premiere matricc ; 

nb!2| nombre de lignes dc la secondc matricc ; 

nbc2| nombre de colonnes dc la seconde matricc. 


Programme : 


MATRICES 


• DEFBYT "i,j,k,nb,c,l" 

' DEFWRD "mat" 

i 

INLINE adr_addc%,520 
INLINE adr_mulq%, 520 
mat_input(4,3,matricels{)) 
mat_input (3, 3,matrice2& () ) 

IF @mat_mul(matricels(),matrice2s(),matrice3&()) THEN 
affiche_matrices(matricels(),matrice2s(),matrice3S ()) 
END IF 
-INP(2) 

RESTORE 

mat_input(4,3,matricels()) 
mat_input(3,3,matrice2s() ) 

IF @mat_mulq(matricelS(),matrice2sO,matrice3s()) THEN 
affichejmatrices (matricels () ,matrice2s () f matrice3s () ) 
END IF 
-INP(2) 

RESTORE 

mat_input(4,3, matricels()) 
mat_input(4,3,matrice2s() ) 

IF @mat_add(matricels(),matrice2s(),matrice3S()) THEN 
affiche_matrices(matricels(),matrice2s(),matrice3s()) 
ENDIF 
~INP(2) 

RESTORE 
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mat_input(3,4,matricels()) 
mat_input(3,4,matrice2&()) 

IF 6mat_addq(matricelt(),matrico2&O f matrice3S()) THEN 
affiche_matrices (matricels (),matrices {) , mat.rice3& () ) 
ENDIF 
~INP(2) 

END 


PROCEDURES ET FUNCTIONS 


PROCEDURE mat_input(nblI,nbc!, VAR mats()) 
LOCAL iI,jI 
ERASE mat&() 

DIM mats(nblI, nbc|) 

FOR i|“1 TO nblI 
FOR j|=l TO nbc| 

READ mats(i|,j I ) 

NEXT j| 

NEXT i| 

RETURN 


PROCEDURE mat_print (c I , 11 , V7iR mats () ) 

LOCAL i I, j I, C_a |, l__a I , nbl I , nbc I 
nbl|=SUB(BYTE((ADD({*mat&()1,4)]>,1) 
nbcI“SUB(BYTE(((*matS() ) )),1) 

FOR il-1 TO nbl| 

PRINT AT(ADD(cI,3),ADD(1I,MUL(iI,2)));"(" 

PRINT AT (ADD (c | ,MUL(nbc 1,6)) , ADD (11 ,MUL(i|, 2) ) ) ; ") *' 
IF i | <nbi | THEN 

PRINT AT(ADD(cI,3),ADD(ADD(11,1),MUL(i|,2))) 

PRINT 

7iT (ADD (c I , MUL (nbc 1,6) ) , ADD (ADD (11,1) , MUL U I , 2) ));")” 
ENDIF 

FOR jI=1 TO nbc| 

c_a|-ADD(cl,MUL(jI,5)) 
l_aI=ADD(1|,MUL(i1,2)) 

PRINT AT(c a 1,1_3 I);USING "###",mats(iI,jI) 

NEXT jI 
NEXT i| 

RETURN 

T 

FUNCTION mat_mul(VAR matis(),iuat2s() , mat3S()) 

LOCAL iI ,j I ,k|,nbll|,nbcl I ,nbl2 I ,nbc2|,flag! 
nbll|-SUB(BYTE((ADD({*matlS() }, 4> )) , 1> 
nbcl I =SUB(BYTE ( ((*matlS0 })), 1 ) 
nbl2 | “SUB(BYTE ( (ADD (( *mat2s () }, 4 ) )> , 1 ) 
nbc2|=SUB(BYTE(((*mat2S ()!)),!) 


I 






IF nbcl|=nbl2| THEN 
ERASE mat3&() 

DIM mat3&(nbll|,nbc2|) 

FOR i|=1 TO nbll[ 

FOR j|-l TO nbc2| 

FOR k1=1 TO nbclI 

ADD mat3&(iI,jI),MUL (rsatIS (i |, k |),mat2& (k |, j |)) 
NEXT k| 

NEXT j| 

NEXT i| 
flag!=TRUE 
ELSE 

ALERT 1,"Produit dc matrices|impossible",1,"Vu",b% 
flag!=FALSE 
ENDIF 

RETURN flag! 

ENDFUNC 

r 

FUNCTION mat_mulq(VAR mat1&(),mat2&(),mat36()) 

LOCAL iI,j|,nbll|,nbclI,nbl2|,nbc2I,flag! 
nbll|=SUB(BYTE({ADD({*matlS(>),4)}), 1 ) 
nbcl|=SUB(BYTE({(*matl&())}), 1 ) 
nbl2|=SUB(BYTE((ADD({*mat2&()} r 4))),1) 
nbc2|“SUB(BYTE{({*mat2&()))),1) 

IF nbclI=nbl2| THEN 
ERASE mat3&() 

DIM mat3&(nbll|, nbc2|) 

~C:adr_mulq%(L:*matU () ,L:*mat2& () ,L:*mat3&()) 
flag!“TRUE 
ELSE 

ALERT 1,"Multiplication do matrices|impossible",1,”Vu",b% 
flag!“FALSE 
ENDIF 

RETURN flag! 

ENDFUNC 
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FUNCTION mat_add (VAR matU(> r mat2fi (> ,mal;3& () ) 
LOCAL i I , j | , nbll I, nbcl | ,nbl2 |, r.bc2 |, flag! 
nbll|“SUB(BYTE((ADD(f *matl&() ],4) [),1) 
nbcl|=SUB(BYTE(((*matlfi())1),1) 
nbl2 I “SUB (BYTE ((ADD ( { *inat.2& () },4) }),].) 
nbc2|=SUB(BYTE({{*mat2&()}}), 1) 

IF nbclI=nbc2| AND nbll|=nbl2| THEN 
ERA.SE mat3&() 

DIM mat3&(nbll| r nbcl | ) 

FOR i|=1 TO nbll | 

FOR jI=1 TO nbcl| 
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mat36(iI,jI)-ADD(matIS(iI,jI),mat2s(i|,jI)) 

NEXT j| 

NEXT iI 
£lag!“TRUE 
ELSE 

ALERT 1,"Addition de matrices I impossible",1,”Vu",b% 
flag!“FALSE 
END IF 

RETURN flag! 

ENDFUNC 

FUNCTION mat_addq(VAR matl&(),mat2&(),mat3&()) 

LOCAL iI,jI,nbll|,nbclI,nbl2I f nbc2|, flag! 
nbllI“SUB(BYTE({ADD({*matl&()},4)}),1) 
nbcl|=SUB(BYTE({{*matl£()}}),1) 
nbl2 I =SUB (BYTE ((7iDD ({*mat2s () ), 4) )) ,1) 
nbc2|-SUB(BYTE(((*mat2&() \ )) r 1) 

IF nbclI=nbc2| AND nbll|=nbl2| THEN 
ERASE mat3&() 

DIM mat3&(nbllI,nbcl|),reg%(15) 
reg%(1)-MUL(nbcl|,nbllI)+(nbclI-1) 
reg%(9)=V:matl5(l,l) 
reg%(10)-V:mat2&(1,1) 
reg%(11)“V:mat3&(1,1) 

RCALL adr_addq%,reg%() 
flag!-TRUE 
ELSE 

ALERT 1,"Addition de matrices I impossible",1, "Vu",b% 
flag'.“FALSE 
END IF 

RETURN flag! 

ENDFUNC 

1 

PROCEDURE affiche_matrice3 (VAR matl&(),mat2&() ,mat3&() ) 
LOCAL nbllI,nbclI,nbl2|,nbc2) 
nbllI-SUB(BYTE{(ADD({*matl&0 ), 4 ) }) , 1) 
nbclI“SUB(BYTE(({*matl&() )}),1) 
nbl2|-SUB(BYTE({ADD((*mat2&() ),4) )) ,1) 
nbc2I“SUB(BYTE(((*mat2S<)]}),!) 

CLS 

mat_print (1, ADD (1,MUL(nbl2 |,2)) ,matl& 0 ) 
mat_print(ADD(4,MUL(nbcl|,5)),1,mat26()) 
mat_print(ADD(4,MUL(nbcl|,5)),ADD(1,MUL(nbl2|,2)),mat3&()) 

RETURN 

1 

donnee: 

DATA 1,-2,5,0,6 





DATA -6,8,9,1,7 
DATA -1,0,0,2,2 
DATA 11,0,-3,2,-1 
DATA 1,8,-6,7,-2 
DATA 0,0,-1,1,1 

Void lcs coties sources des routines cn asscmbleur. 

I Addition de matrices 

.TEXT 

I.IGNE: move.w (al)+,d0 ; element dans d() 

add.w (a2)+,d0 ; on additionne lc second 
move.w d0,(a3)+- ; somme dans le troisidme Lableau 
dbra d 1 .LIGNE ; on bouclc 

; fin 

rts ; retour au basic 

.END 

; Multiplication de matrices 

.TEXT 
initialisation 

movca.I 4(sp),al ; adresse du descripteur 
movea.1 8(sp),a2 ; " ” 

movca.I 12(sp),a3 ; " " 

movca.I (al),al ; adresse du tableau 

movea.1 (a2),a2 ; " " 

movca.I (a3),a3 ; " " 

addq.l #4,al ; pour avoir le nombre de lignes 

moved (al)+,d0 ; nombre de lignes mail 

moved (a2)+,d2 ; nombre de eolonnes mat2 

movc.l (a2)+,d 1 ; nombre de lignes mat2 

subq.l #l,d0 ; pour tester dO 4 0 

subq.l #1 ,d 1 ; pour tester d I i 0 

subq.l #l,d2 ; pour tester d2 it 0 

addq.l #8,a3 ; pointc sur le premier dldmcnt 

link a6,#-16 ; rdserve 16 octets 

movcm.l dO/dl/a1/a3,(sp) ; empilc dans l’cspace 

COLONNE2: 

moved a3,-4(a6) ; sauve a3 

movca.I -8(a6),al ; restaurc al 

moved -12(a6),dl ; initialise d 1 

LIGNE2: movea.1 -4(a6),a3 ; reslaure a3 

move.w (a2)+,d3 ; prend lc coefficient de mat2 

moved -16(a6),d0 ; initialise dO 
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GFA Basic : assembler 


LIGNEl: movc.w (al)+,d4 ; prend Ic coefficient de mat! 


muLs. w 

d3,d4 

; cl multiplie 

add.w 

d4,(a3)+ 

; additionne & la valeur de mat3 

dbra 

dO,LIGNEl 

; boucle sur la ligne de mail 

dbra 

dl,LIGNE2 

; boucle sur la ligne de mai2 

dbra 

d2,COLONNE2 

; boucle sur la colonne de mat2 

unlk 

a6 

; rcsiaure la pile 

rts 

.END 


; retour au basic 
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Void la lisle des instructions iraildes dans ce chapitre : 


KEYDEF 

KEYLOOK 

KEYPRESS 


KEYGET 

KEYPAD 

KEYTEST 


KEYDEF n,ch$ 

n : expression numdrique entidre ; 
ch$ : expression alphanumdrique. 

Cetle insiruction ddfmit la touche dc fonction avec la chafnc de caractdrcs 
spdeifide d'unc longueur maximale de 31 caractdrcs. Les touches FI it FI 0 sont 
rcspcciivcment coddcs de 1 A 10 et de 11 A 20 Iorsquc la touche <SHIFT> est 
simultandmcnt pressde. L'affcctation de ces touches reste valablc sous l'dditeur 
du GFA Basic, toutefois la touche <ALTERNATE> doit dgalement dtrc pres¬ 
sde. 

KEYGETn 
n : variable mot long. 

Cette instruction attend que l'utilisateur presse sur une touche. Au retour, n 
contiem le code ASCII dans les bits 0 it 7, le code clavier dans les bits 16 it 23, 
et l'dtat des touches dc contrfile du clavier. 

KEYLOOKn 
n : variable mot long. 

Cette instruction lit la mdmoire clavier d'unc manidre identique 1 KEYGET, 
mais sans modifier le tampon cn aucune manidre. 

KEYPAD n 

n : expression numdrique cnlidre. 

Cette instruction gdre les touches de conlrfilc du clavier. 

Les cinq premiers bits de n ont la signification suivante : 
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bit 

0 

1 

2 

3 

4 

5 


signification 
NUM-LOOK 
NUM-LOOK 
CTRL-KEYPAD 
ALT-KEYPAD 
KEYDEF sans ALT 
KEYDEF avec ALT 


0 

ddsactivd 

inac livable 

normal 

nonnal 

ddsactivd 

ddsactivd 


1 

activd; 
activablc; 
curseur; 
entrde ASCII; 
activd; 
activd. 


KEYPRESS n 
n : variable mot long. 

Cette instruction simule I'appui sur la touche de code n (code ASCII ct code 
clavier). 

KEYTEST n 
n : variable mol long. 

Celle fonction renvoie le code ASCII dc la touche pressde (les touches dc 
contrSlc ne sont pas prises en comptc). 


Gestion du clavier 










Dans toutes les resolutions, le coin supiirieur gauche aura les mfimes coordon- 
ndes : (0,0). II n’en va pas dc m£mc pour les coordonndes des autres angles. 

En bassc resolution (320x200): 

XO = OctXM = 319 ; 

YO = 0et YM = 199; 

16 coulcurs. 

En moyenne resolution (640x200): 

XO = 0 ct XM = 639 ; 

YO = 0 ct YM = 199 ; 

4 couleurs. 

En haute resolution (640x400) : 

XO = 0 ct XM = 639 ; 

YO = Oet YM = 399 ; 
monochrome. 
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Void les instructions traises dans cc chapilre : 


BOUNDARY 

FILL 

PRBOX 

BOX 

GET 

PUT 

CIRCLE 

GRAPHMODE 

RBOX 

CLIP 

LINE 

SETCOLOR 

COLOR 

PBOX 

SETDRAW 

DEFF1LL 

PCIRCLE 

SGET 

DEELINE 

PELLIPSE 

SPRUE 

DEEM ARK 

PLOT 

SPUT 

DEFTEXT 

P0INT() 

TEXT 

DRAW 

POLYFILL 

VSETCOLOR 

DRAW() 

POLYLINE 

VSYNC 

ELLIPSE 

POLYMARK 



BOUNDARY Hag 

flag : expression numdrique entire. 

Cette instruction active ou ddsactive 1c mode dc tragage automatique dcs 

contours dcs surfaces plcines. 

flag = 0 encadrcmcni activd ; 

flag <> 0 cncadremcnl ddsactivd. 

BOX xl,yl,x2,v2 

xl,yl,x2,y2 : expressions numdriques endures. 

Cette instruction dcssine un rectangle entre les points dc coordonndes (xl.yl) 
et (x2,y2) qui constituent respcctivcment le coin supdricur gauche el le coin 
infdricur droit du rectangle. 

Voir dgalcmcnt les instructions PBOX, PRBOX et RBOX. 

CIRCLE x,y,r [,alphal,alpha2] 

x,y,r,alphal ,alpha2 : expressions numdriques enticrcs. 

Cette instruction dessine un cerclc ou un arc de cerclc dc centre le point dc 
coordonndes (x,y) et de rayon r. Les angles alpha 1 et alpha2 indiquent pour un 
arc de ccrcle langlc de ddbut et cclui de fin cxprimds cn 1/10 dc degrd 
Voir dgalemcnt l’instruction PCIRCLE. 

CLIP xl,yl,lageur,hauteur [OFFSET x<),y0] 

CLIP xl,yl TO x2,y2 [OFFSET x0,y0] 

xO.yO.xl ,y I ,x2,y2,Iargcur, hauteur : expressions numdriques entidres; 

Cette instruction permet dc limiter les opdrations graphiques VDI it la portion 
rcctangulaire dc Tdcran spdeifide parlc coin supdricur gauche (xl.yl) suivi de 
la largcur el la hauteur dc cettc zone, ou par les deux angles diaginalcmcnl 
opposds (xl.yl) et (x2,y2). Le mot clef opptionncl OFFSET lixe les nouvellcs 
coordoimdes dc l'origine dcs axes X ct Y. 



CLIP OFFSET xO,yO 

xO.yO : expressions numdriques emigres. 

CeLle instruction permet de lixerlcs nou voiles coordonndcs dc 1’origine des axes 
XctY. 

CLIP [OFFSET xO,yfl] 

xO,yO,n : expressions numdriques emigres. 

Cette instruction fixe les operations graphiques aux dimensions de la fcnelre 
numdro "n". 

CLIP OFF 

Cette instruction ddsactive le mode dc "clipping" mis cn place par l’instruction 

CLIP. 

COLOR c 

c : expression numdrique entidre. 

Cette instruction pcnnei de choisir la couleur d’dcrilure "c". Le paramelre "c" 
varic dc une plage de 0 i 15 cn bassc resolution, de 0 it 3 enmoyenne resolution, 
ct de 0 a I en haute resolution. 

Voir egalcment les instructions VSETCOLOR et SETCOLOR. 

DEFFILL |c ][,a][,b] 

DEFFILL [c,] varS 

a,b,c : expressions numeriques entidres ; 

var$ : variable alphanumerique. 

Cette instruction a une double syntaxe. Elle pennet dans le premier cas de 
deiinir la couleur "c" el le motif du reinplissage avec les paramdtres "a" et "b". 
Le parametre "a" indique le mode dc remplissage : 

0 = vide; 

I = plein ; 

3 = hachurd; 

4 = ddfini par l'utilisatcur. 

Le paranidtrc "b" specilie le motif choisi parmi vingt-quatre types dans les 
pointilies et parmi douzc dans les hachurds. 
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Pour ddfinir un motif proprc, il faut constitucr unc matricc 16x16. La variable 
alphanumdrique "var$" doit rdsultcr de seize concatenations successivcs dc 
seize bits translormds en chaines de caracteres par la fonction MKIS en haute 
resolution (un plan), dc trcntc-dcux concatenations cn moyenne resolution 
(deux plans) et de soixante-quatre concatenations en basse resolution (quatre 
plans). 

Les paramdtrcs dtant facultatifs, il est indispensable de mettre les virgulcs 
separatriccs cn lieu cl place dc ccux qui sont omis. 

Voir dgalement les instructions FILL, MKI$, PBOX, PCIRCLE, PEL- 
LIPSE ct POLYFILL. 

DEFLINE [type] [,largeur] [,tddbut] [,tfin] 

type,largcur,tddbut.tfin : expressions numeriques entiercs. 

Celle instruction specific les lignes utilisdcs paries instructions BOX, CIRCLE, 
DRAW, ELLIPSE, LINE, RBOX et POLYLINE. Le paramdtre "type" de¬ 
termine lc type de trail, "largcur" indique la largcur cn nombre dc points 
graphiques (pixels), "tdebut" et "tlln" donnent respeclivementla forme d'extrd- 
mitd & utiliscr cn debut ct fin de ligne : 

0 = normal; 

1 = fldche; 

2 = arrondi. 


DEFFILL 1.1 
DEFFILL 2,1 
DEFFILL 3,1 

DEFFILL <1,1 


- DEFFILL 3.1 

_ DEFFILL 6,1 


Voir dgalement les instructions BOX, CIRCLE, DRAW, ELLIPSE, LINE, 
RBOX ct POLYLINE. 

DEFMARK [c]|,symbole)|,taille] 
c,symbole,taillc : expressions numdriques entidres. 

Cette instruction specific la coulcur "c", lc paramdtre "symbolc" pourra prendre 
les valcurs suivantes : 

1 = point; 

2 = plus ; 

3 = dtoilc; 










4 = rectangle; 

5 = croix; 

6 = losange. 

Lc paramdtre "taille" est la dimension en pixels du synibolc ulilisd lors de 
l'instruction POLYMARK. La taille peut prendre les valeurs 0, 20,40, 60, 80 
cl 100. 

Voir dgalement l'instruction POLYMARK. 

DEFTEXT [c][,type][,alphair,liauteur] 
c.type.alpha.hautcur : expressions numdriques entidres. 

Cette instruction permet de ddfinir la couleur "c", le "type" dc caractdres : 

0 = normal; 

1 = gras ; 

2 = clair; 

4 = italique; 

8 = soulignd; 

16 = contour. 

Pour avoir plusieurs caractdristiqucs simultandment, il sulKit d'additionner les 
valeurs des types fondamcniaux: par exemple, dcriturc clairc ct oblique; type 
sera 4+2=6. 

L'anglc d'dcriturc esl exprimd en 1/10 dc degrd. 


900 


i8oe _ TExre _ o 


2708 


Lc paramdtre "hauteur" determine la hauteur en pixel des caractdres: 

4 = caractdres conlenus dans les ic6ncs ; 

6 = caractdres fins allongds; 

13 = caractdres normaux ; 

32 = grands caractdrcs. 

Toutes les valeurs sont admises, mais rarcs sont celles qui permettent une 
lecture aisde. 

Voir dgalcmcnt les instructions TEXT et COLOR. 
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DRAW [\0,y0] [ TO ] fxl,yl] I TO x2,y2 ...1 
x0,y0,xl,yl,x2,y2 : expressions numdriques cnlieres. 

Cette instruction ailichc un point ou trace des lignes enlre deux ou plusicurs 
points. DRAW x,y est identique il PLOT. DRAW TO x,y trace une droile entre 
le dernier point affichd par DRAW, PLOT. LINE. DRAW x(),y0 TO xl ,y 1 TO 
... TO xn.yn relic dans l'ordre indiqutS les n points par des droiles 
Voir dgalcment Ics instructions PLOT ct LINE. 

DRAW expression 

Cette instruction simulcle mouvemenide latortue du langage Logo. 11 s'agitdes 
actions d'un "crayon" sur Ic papier. L'cxpression conliendra une sequence de 
commandcs sdpardes par dcs virgules, des points-virgulcs ou des apostrophes. 
Listc dcs commandos : 

PD n avance dc n pas ; 

BK n rcculc de n pas ; 

SX x modifie la graduation sur X utilisdc par FD cl BK ; 

SY y modifie la graduation sur Y uLilisde par FD ct BK ; 

SX 0 ddsactivc la graduation courantc sur X ; 

SY 0 ddsactive la graduation couranie sur Y ; 

CO coul choisit la coulcur dc tracd ; 

PD baisse lc crayon sur 1'derail; 

PU Idvc le crayon dc l'dcran ; 

7T ang rotation dc la valcur d'angle (cn degrds) spdeifide ; 

RT ang rotation vers la droile (angle cn degrds); 

LT ang rotation vers la gauche (angle cn degrds); 

MA x.y ddplaccment cn coordonndcs absolucs vers (x,y); 

DA x.y displacement avee tracd de ligne ; 

MR x,y displacement cn coordonndcs relatives vers (x.y); 

DR x,y ddplaccment avee trued dc ligne. 


0 


270 - CRAYON —- 98 


100 


Voir dgalcmcnt les instructions COLOR, DRAWQ et SETDRAW. 




DRAW(n) 

n : expression numdrique entidre. 

Ccue lbnction rctoumc la valeur cn virgulc llottantc dcs coordonndcs (x,y), 
lbtat du crayon ou des angles utilises par I'instmction DRAW prdeddemment 
ddcrite. 

Le paramdlrc "n" peut prendre les valeurs suivantes : 
n = 0 abscisse x ; 

n = 1 ordonnde y ; 

n = 2 angle cn degrds; 

n = 3 graduation sur X ; 

n = 4 graduation sur Y ; 

n = 5 dial du crayon (0 = lcvd et -1 = baissd). 

Voir dgalemcnt les instruclioas DRAW' cl SETDRAW. 

ELLIPSE x,y,rx,ry [,alphal,alplia2] 
x,y,rx,ry,alphal ,alpha2 : expressions numdriques emigres. 

Cette instruction dessine unc ellipse ou un arc d'cliipse de centre le point de 
coordonndcs (x,y) de demi-axc horizontal rx et de demi-axe vertical ry. Les 
angles alphal et alpha2 indiquentpourun arc d'cliipse Tangle de ddbuietcclui 
de fin exprimds cn 1/10 de degrd. 

Voir dgalemcnt l’instruction PELI.TPSE. 

FILL x,y 

x,y : expressions numdriques entidres. 

Cette instruction pcnnct deremplirlasurfaccconvexcfcrm<Sc cntourantlcpoinl 
de coordonndcs (x,y) avec 1c motif ddfini grace h Tinstruetion DEFFILL. 
Voir dgalement Tinstruetion DEFFILL. 

GET x0,y0,xl,yl,var$ 

x0,y0,xl,yl : expressions numdriques cntiercs ; 
var$: variable alphanumdrique. 

Cette instruction affccte it la variable "varS" une portion rectangulairc de 
l'dcran. Les coordonndcs (xl,yl) cl (x2,y2) constituent respcctivcment le coin 
supdricur gauche et le coin infdrieur droit du rectangle. 

Voir dgalemcnt les instructions PUT, SGET et SPUT. 

GRAPHMODE n 
n : expression nunuSrique entidrc. 

Cette instruction active le mode graphique numdro "n". II cxiste quatre modes 
graphiques : 

n = 1 mode normal, la nouvelle image dcrase Tancicnnc ; 
n = 2 la nouvelle image cst iransparente ; 

n = 3 lout point dc la nouvelle image cstaUumds'ildtaitdieint.etdtcints'ildtait 
allumd; 

n = 4 la nouvelle image cst affichde cn inversion viddo. 
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LINE x(),yO,xl,yl 

xO,yO,xl,yl: expressions numdriques entidres. 

Cette instruction trace unc I igne enlre le point dc coordonndes (xO.yO) ct 1c point 
dc coordonndes (xl,yl). 

Voir dgalemcnt les instructions DEFLINE ct DRAW. 


PROX xl,yl,\2,y2 

x1,y1,x2,y2 : expressions numdriques entires. 

Instruction identique d BOX mais avec un rectangle plein. La couleur et le motif 
dc remplissage sont ddleiminds par I'instruction DEFFILL. 

Voir dgalemcnt les instructions BOX, DEFFILL, PRBOX et RBOX. 


PCIRCLE x,y,r f,alphal,alpha2] 
x,y,r,alphal,alpha2 : expressions numdriques entidres. 

Instruction identique & CIRCLE mais avec un ccrclc ou un arc dc ccrcle plein. 
La couleur et le motif dc remplissage sont ddterminds par I'instruction DEF¬ 
FILL. 

Voir dgalemcnt les instructions CIRCLE et DEFFILL. 


PELL1PSE x,y,rx,ry [,alphal,alpha2J 
x,y,rx,ry,alphal,alpha2 : expressions numdriques entidres. 

Instruction identique d ELLIPSE mais avec unc ellipse plcinc ou un arc 
d'ellipse plein. La couleur ct le motif dc remplissage sont ddtenninds par 
I'instmction DEFFILL. 

Voir dgalemcnt les instructions DEFFILL et ELLIPSE. 


PLOT x,y 

x,y : expressions numdriques entidres. 

Cette instruction affichc le point de coordoimdes (x,y) it l'dcran. 
Voir dgalemcnt I'instruction DRAW. 


P01NT(x,y) 

x,y : expressions numdriques entidres. 

Cette fonction teste le point de coordonndes (x.y) d l'dcran et renvoic la couleur: 
0 ou 1 scion que le point cst dleint ou allumd en haute rdsolution, 0 it 3 en 
moyenne rdsolution, 0 it 15 en bassc rdsolution. 

Voir dgalemcnt I'instruction COLOR. 


POLYFILL npt(),y() [OFFSET dx,dy] 
n.dx.dy : expressions numdriques entidres ; 
xO.yO : tableau numdrique entier. 

Cette instruction relie n points doni les coordonndes sont contcnues dans les 
tableaux xO et y() et rcmplit l'inldrieur(voirFLLL). Us coordonndes du premier 
point sont contcnues dans x(0) ct y(0). 

Le mot clef facultatif OFFSET dx,dy permet d'effccluer une translation dc 
vecteur (dx.dy). Cependant, cette facilitd nc fonclionnait pas sur toutes les 
versions pndeddentes, en particular sur la 2.02. 

Voir dgalement les instructions DEFFILL et FILL. 




POLYLINK n,x(),yO [OFFSET dx,dy] 
n.dx.dy : expressions nurndriques entidrcs; 
xO.yO : tableau numdrique cnticr. 

Cette instruction relic n points dont les coordonndes sont contcnues dans les 
tableaux x() ct yO. Les coordonndes du premier point sont contcnues dans x(0) 
et y(0). 

Le mot clef facultatif OFFSET dx,dy permet d'cffccluer une translation de 
vccteur (dx.dy). Ccpcndanl, ccttc facilitd ne fonctionnait pas sur toutes les 
versions prdeddentes, cn particular sur la version 2.02. 

Voir dgalcmcnt les instructions DEFL1NE et LINE. 

POLYMARK n,x(),y() [OFFSET dx,dy] 
n.dx.dy : expressions nurndriques entidres; 
xO.yO : tableau numdrique entier. 

Ccttc instruction marque, d’un symbole ddfini grflee i DEFMARK, n points 
dont les coordonndes sont contcnues dans les tableaux xO et yO. Les coordon¬ 
ndes du premier point sont contcnues dans x(0) et y(0). 

Lc mot clef lacultatif OFFSET dx,dy pennet d'effectuer une translation dc 
vccteur (dx.dy). Cependant, ccttc facilitd ne fonctionnait pas sur toutes les 
versions prdeddentes, cn particulier sur la 2.02. 

Voir dgalcmcnt l'instruction DEFMARK. 

PRBOX xl,yl,x2,y2 

xl,yl,x2,y2 : expressions nurndriques entidres. 

Instruction identique it RBOX mais avec un "rectangle" plein aux bords 
arrondis. La couleur et le motif de remplissage sont ddterminds par l'iastruction 
DEFFILL. 

Voirdgalement les instructions BOX. DEFFILL, BOX ct RBOX. 

PUT x,y,var$,niode 

x.y.rnodc : expressions nurndriques entidres; 
var$ : variable alphanumdrique. 

Ccttc instruction affiche it 1’dcran la portion d'dcran saisie avec l’instruction 
GET et stockdc dans "var$". Lc point de coordonndes (x.y) constituc le coin 
supdricur gauche du bloc binaire al'fichd. Lc mode a les attributs suivants : 

0 = eflacer dans la couleur de fond ; 

1 = C AND I; 

2 = C AND (NOT p ; 

3 = C (en superposition); 

4 = (NOT Q AND I; 

5=1 (inchangd); 

6 = C XORI; 

7 = C OR I; 

8 = NOT(C OR 1); 

9 = NOT(C XOR I); 

10 = NOT I (inversion viddo); 

11 = C OR (NOT I); 
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12 = NOT C (superposition cn inversion video); 

13 = (NOT C) OR I; 

14 = NOT(C AND I) ; 

15 = cffaccr dans la coulcur d'dcriture. 

Voir dgalemcnt les instructions GET, SGET ct SPUT. 

RBOX xl,yl,x2,y2 

xl,yl,x2,y2 : expressions numdriques entieres. 

Cette instruction dcssinc un ’’rectangle" it coins arrondis entre les points de 
coordonndcs (x 1 ,yl) et (x2,y2) qui constituent respeclivement le coin supdrieur 
gauche et le coin infdrieur droit du rectangle. 

Voir dgalemcnt les instructions BOX, PBOX el PRBOX. 

SETCOLOR n,tr,tv,tb 
SETCOLOR n,c 

n,c,tr,tv,tb : expressions numdriques entidres. 

Cette instruction permet dc sdlcctionncrct modifier le registre coulcurs numdro 
”n" (n varie de 0 it 1 en haute rdsolution, de 0 it 4 en moyenne rdsoiulion, de 0 
it 15 cn bassc rdsolution). Les paramdtres "tr”, "tv" ct "tb” indiquent respecti- 
vcment les taux de rouge, de vert et de bleu de la nouvcllc coulcur. Dans la 
deuxidme fonne de syntaxc, le paramdtre ’’c” indique la coulcur qui correspond 
au fomiat interne : c=tr*256+tv*16+tb. 

Les numdros des coulcurs ct dcs registres dc l’Atari ST nc correspondent pas. 
11 s’est produit une emeur lore de l’implantation du VDI. II exisle deux mdlhodcs 
pour rdtablir le bon systdme de codagc: utiliser I’instniction VSETCOLOR ou 
faire des dquivalences d partir de la table suivantc : 


Table dcs corrcspondances des registres de couleurs et des couleure : 
En basse rdsolution 


Couleur 

0 

2 

3 
6 

4 

7 

5 

8 

9 

10 
11 

14 
12 

15 
13 
1 


Registrc 

0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 





En moyenne resolution 
Couleur Rcgistrc 

0 0 

1 3 

2 1 

3 2 

Voir dgaicment les instructions COLOR et VSETCOLOR. 

SETDRAW x,y,angle 

x,y.angle : expressions numdriques entidres. 

Cette instruction est dquivalenle a DRAW "MA" l x,y,"IT".angle. 

Voir dgalcmcnt Ics instructions DRAW ct DRAW(). 

SGET varS 

var$ : variable alplianumdrique. 

Celle instruction permet dc saisir dans la variable "var$" l'dcran dans son 
intdgralild. 

Voir dgalcmcnt les instructions GET. PUT cl SPUT. 

SPRITE var$,x,y 

var$ : variable alplianumdrique ; 

x,y ; expressions numdiiqucs enlidrcs. 

Cette instruction pcnnel d’affichcr un lutin clans un rectangle dont la position 
supdricurc gauche a pour coordonndcs (x.y). La variable "var$", composde de 
74 caracteres, est ddlinie comme suit: 
var$ = MKl$(coordonndc x du point d'aclion) 

+ MK]$(coordonnde y du point d’action) 

+ MKI$(0) mode normal ou MKI$(I) mode XOR 
+ MKIS(coulcur du masque) gdndralcmcnt 0 
+ MKI$(couleur du sprite) gdndralcmcnt 1 
+ MKI$(moiif binaire 1 du masque) 

+ MKI$(motif binaire 1 du sprile) 

+ MKI$(motif binaire 16 du masque) 

+ MKIS(motif binaire 16 du sprite) 

Voir dgalcmcnt l'instruction MKI$. 

SPUT var$ 

var$ : variable alplianumdrique. 

Cette instruction pennet d'aflicher l’dcran saisi avee l'instruction SGET et 
stockd daas la variable "varS". 

Voir dgalcmcnt les instructions GET, PUT et SGET. 

TEXT x,y [,lung],chaine$ 

x.y.long : expressions numdriques entidrcs ; 

chame$ : expression alplianumdrique. 

Celle instruction alliche 1c texte "chained" cn mode grapliique en commcnyant 
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it la position dc coordonndcs (x,y). Le paramdtre facultatif "long" indiquc la 
longueur cn pixels occupde par la chatne. Si "long" cst positif, la justification 
se fail sur les caractdrcs (cspacement variable des caractdres), et si "long" cst 
ndgatif, la justification se fail sur les mots (cspacement variable des mots). Si 
"long" cst omis ou nul, lc texte est affichd avec les espacemenis standards. 
Voir dgalement l'inslruction DEFTEXT. 

VSETCOLOR n,tr,tv,tb 
VSETCOLOR n,c 
n,c,tr,tv,tb: expressions emigres. 

A1'instar dc SETCOLOR, cette instruction pennet dc sdlcctionncr ct modi fier 
lc registre couleurs numdro "n" (n varic dc 0 it 1 cn haute rdsolution, de 0 it 4 cn 
moyenne rdsolution, dc 0 it 15 en basse resolution). Les paramdlrcs "tr", "tv" ct 
"tb” indiquent rcspcctivement les taux dc rouge, de vert, ct dc bleu dc la 
nouvcllc couleur. Dans la deuxidme fonne dc syntaxe, le paramdtre "c" indique 
la couleur qui correspond au format interne : c=tr*256+lv’*‘l6+lb. 

Les numdros des couleurs et des registres dc l'Atari ST sont remis cn ordre avec 
VSETCOLOR, alors que ce n’dtait pas lc cas avec SETCOLOR. 

Voir dgalement les instructions COLOR el SETCOLOR. 

VSYNC 

Cette instruction permet de synchroniser les affichagcs avec lc balayage de 
l’dcran, dvilanl ainsi les parasites. Lc programme est inlerrompu jusqu'au 
prochainpassagedufaisceau.c'est-it-dircqucrimagc soitentidrement aflichde. 




PROGRAMMES 

GRAPHIQUES 




La synLaxe des instructions csl unc chose primondialc, mais encore f aut-il savoir 
comment mettre en pratique les diffdrents dldments pour obtenir de belles 
courbcs. des histogrammes ou des camcmberts cn relief, ou bien encore se 
construire un petit logicicl de dcssin. 

Cliaqueprogramme cst tout d’abord donnd dans son integrality, puis ddcortiqud 
afin de vous expliquer comment fonclionnent les diverscs instructions. Les 
programmes fonclionnent dans la mesure du possible dans les trois resolutions 
de 1'Atari ST. 


TRACE D’HISTOGRAMMES ET DE CAMEMBERTS 
EN 2D ET 3D 

Ce programme donne diverscs representations graphiques it partirdc donndcs 
fictives conserves en DATA. 

11 fonctionne dans toutes les resolutions. Toulcfois, vous constate re z un pro- 
bldme lors dc la representation du ccrcle en moyenne resolution provenant de 
I'instruclion CIRCLE ellc-m£me. 

Programme principal 

Les instructions suivantes sont facultatives; toutefois, elles facilitcront l’dcri- 
ture du programme. En effet, lorsque les variables sont saisies (mode DEFLIST 
2), elles prennent automatiquement Ie bon suffixe it I'affichagc. 

DEFBYT "i.j.nombre” ddsigne des octets ; 

DEFWRD "x,y" ddsigne des mois (16 bits); 

DEFWRD "dx” ddsigne des mots (16 bits); 

DEFWRD "cx.cy" ddsigne des mots (16 bits); 

DEFWRD "lx.ly" ddsigne des mots (16 bits); 

DEFSTR "mo" ddsigne une chatne. 

Variables globalcs : 

nombrel : nombre dc valeurs it saisir dams les DATA ; 

valeurO : tableau dc valeurs; 

mois$0 : tableau contcnant le nom des mois ; 

cx& : factcur de resolution sur 1'axc des X ; 

cy& : factcur de resolution sur I'axc des Y ; 

nb_coul| : nombre dc coulcurs (de 0 it 15 maximum); 

x0& : abscissc X de I’originc ; 

>0& : ordonnde Y dc l’origine ; 

lx& : abscissc maximalc par rapport it l'originc x0& ; 

ly& : ordonnde maximale par rapport it I'origine y0& ; 

dx& : intervallc cnlie deux donndcs selon X. 
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Procedure resolution 

Initialise les variables globales relatives it la resolution d'dcran choisic par 
I'utilisatcur. 

Procedure repere 

Initialise les variables globales du changemcnt de repirc ct d’^chcllc. 


Procedure tracc_rep 

Tracele repere scion la resolution d’ecran choisic et affichc les mois en abscisse. 

Variables locales: 

t| et j| : indices de boucles ; 

tx& : abscisse du point d'une lettrc du textc ; 

ty& : ordonnee du point d’une lettrc du textc. 


Procedure histogramme 

Dcssinc un histogramme cn deux dimensions. 

Paramfctrcs: 

x&() et y&0 : tableaux de coordonnecs. 

Variable locale : 

i| : indicc de houclc. 

Procedure histogrammcl 

Dessinc un histogramme cn trois dimensions. 

Parametrcs: 

x&() et y&O : tableaux de coordonnecs. 
Variables locales : 

i|etj| : indices de boucles. 


Procedure courbe 

Dessine unc courbc grScc i l’instruction POLYLINE qui recoil scs param6trcs 
au moycn dc deux tableaux de coordonnecs. 

Paramfctrcs: 

dx& : variation suivant I'axc dcs X; 

dv& : variation suivant 1’axe des Y ; 

n| : nombre de points ; 

x&() et y&0 : tableaux de coordonnecs. 


Procedure camenibert 

Dcssinc un camcmbert en deux dimensions. 11 rc^oit comnic paramfclres un 
tableau dc coordonnecs contcnant les mcsurcs des secteurs angulaircs represen- 
tant les donnecs (la somme dc ces mesures cst dgale & trois cent soixantc degrds). 
Parametrcs: 

x& : abscisse du centre; 

y& : ordonnee du centre ; 

r& : rayon du camcmbert; 

alpha#() : tableau des mesures des secteurs angulaircs. 






\mmtm 
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Variable locale : 

i| : indice dc boucle. 


Procedure camembertl 

Dessine un camcmbert cn irois dimensions. 11 recoil comme parametres un 
tableau de coondonndcs conicnani les mesurcs dcs secteurs angulaircs reprdsen- 
lantles donates (la somme de ces mesurcs estdgalc & trois cent soixante degnis). 
Paramdtrcs: 

x& : abscisse du centre ; 

y& : ordonnte du centre ; 

r& : rayon du camcmbert; 

alpha#() : tableau des mesurcs dcs secteurs angulaircs. 

Variables locales : 

i| ct j| : indices dc boucles. 


Procedure normalisation 

Ellc pcmict de rdduire ou d'agrandir les representations des donnees selon la 
resolution d’ecran choisic par 1'utilisatcur et la valcur dc la plus gntndc des 
donnees. Dc plus, elle initialise les mesurcs dcs secteurs angulaircs. 
Paramdtrcs: 

nombre| : nombrc dc donnees ; 

valeur#() : tableau dcs valeurs ; 

x&() : tableau dcs abscisses; 

y&0 : tableau dcs ordonn6es ; 

a!plia#0 : tableau dcs mesurcs dcs secteurs angulaircs. 

Variables locales : 

i| : indice dc boucle ; 

fact# : factcurd'echcllc ; 

maxi# : valeur dc la plus grande dcs donnees ; 

somme# : somme dcs donnees ; 

x&() : tableau dcs abscisses ; 

y&() : tableau dcs ordonnees; 

alplia#Q : tableau des mesurcs dcs secteurs angulaircs. 


Fonction getrez 

Ellc determine la resolution dc l'ecran. Elle fait appel it la fonction A du XBIOS. 
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Programme : 


TRACES DE STATISTIQUES 


* DEFBYT "i,j,nombre" 

' DEFWRD "x,y" 

' DEFWRD "dx" 

' DEFWRD "cx, Cy" 

’ DEFWRD "lx,ly" 

' DEFSTR "mo" 

I 

nombre|=12 

DIM valeur(nombreI),mois$(nombre|) 

RESTORE dcnr.ees 
FOR i|=l TO nombreI 
READ valeur(i|) 

NEXT i| 

RESTORE mois 
FOR i|=1 TO nombreI 
RE7iD moi.S$(i|) 

NEXT iI 
repe re 

normalisation(nombre|,valeur(),x&(),yS(),alpha ()) 

FOR i|=1 TO 12 
NEXT i| 

CLS 

tracc_rep 

histegramme (x& (), y& (}) 

PAUSE 200 

histogrammel(x&() ,y&() ) 

PAUSE 200 
trace rep 

courbe (-DIV<dx£,2),0,nombre1+1, x&() , y& <) ) 

PAUSE 200 
CLS 

camembert(DIV(lxfi,2),-DIV(lyc,2) ,DIV(ly&,2) , alpha()) 

PAUSE 200 
CLS 

camembert1 <DIV(lx£, 2),-DIV(lyfi,2),DIV(lx£,2) ,DIV(ly&,2) , 
alpha () > 

PAUSE 200 


PROCEDURES ET FONCTIONS 


PROCEDURE resolution 
SELECT (@getrez) 



I 
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CASE 0 
CX&-1 
cyS=l 
CASE 1 
cx&«2 
cy&=l 
CASE 2 
cx&=2 
cyfi-2 
ENDSELECT 
RETURN 
r 

PROCEDURE repcrc 
resolution 
x0&**MUL(30,cx&) 
y 0 & =MUL(135,cy&) 
lx&-SUB(MUL(310 r CXS) ,x0&) 
ly£=SUB(y0&,MUL(20,cy&)) 
dxS=DIV(lx£,nombreI) 

CLIP OFFSET x0&,y0& 

RETURN 

t 

PROCEDURE trace_rep 
LOCAL i|,j|,txfi,ty& 

DRAW 0,0 TO lxs,0 
DRAW 0,0 TO 0,-ly& 

DEFTEXT ,,,4 

FOR i|=1 TO nombreI 

FOR j|=l TO LEN(mois$(i|)) 

tx&=SUB(MUL(dx&,i|),DIV(dxfi,2)) 
tyfi=MUL<j|,7) 

TEXT tx&,tyi,MID$(moisS(iI) , jI,1) 
NEXT j| 

NEXT i| 

RETURN 

PROCEDURE histogramme(VAR x&(),y&()) 
LOCAL i| 

FOR i1=1 TO nombreI 
DEFFILL ,2,i| 

PBOX x&(i|-l),0,xfi(i|),y&(i|) 

NEXT i| 

RETURN 

t 

PROCEDURE histogramme1(VAR x&(),y&()) 
LOCAL i|,j| 

FOR i|=l TO nombre| 



DEFFILL ,2, i | 

PBOX x£(i|-l),0,xfi(i|),y4(i|) 

FOR j|=0 TO 10 

DRAW ADD(x&(i|-1),j|) , SUB(yfi(i | ),j | ) 

DRAW TO ADD(x£(iI) r jI),SUB(y&(i I ), j | ) 
DRAW TO ADD(x&(i|),j|),-j| 

NEXT j| 

NEXT i| 

RETURN 

t 

PROCEDURE courbe(dx&,dy&,nI, VAR x&(),y&()) 
x& (0)—dx& 
yS(0) =-dy& 

POLYLINE n I, x& () , y& () OFFSET dx£,dy£ 

RETURN 

r 

PROCEDURE camembert(x£, y&, r&,VAR alpha()) 

LOCAL i| 

FOR i|-1 TO DIM?(alpha())-1 
DEFFILL ,2,i| 

PCIRCLE x&,y£,rs,alpha(i|-1),alpha(i|) 

NEXT i| 

RETURN 

I 

PROCEDURE camembert1(xs,y&,rxs,ry&,VAR alpha()) 
LOCAL i[ 

DEFFILL ,3,10 

PELLIPSE x&,y&+5,rxS,ry&+15,1700,3700 
FOR i|=l TO nombreI 
DEFFILL ,2,i| 

PELLIPSE x£,y&,rx£,rys,alpha(i|—1),alpha(i|) 
NEXT i| 

RETURN 


PROCEDUREnormalisation(nombre|, VAR valeurO,x&(),y&() 
LOCAL i I ,fact,maxi,somme 
DIM x&(nombre|), yS (nombre I ) 

DIM alpha(nombre|) 

maxi=0 

somme=0 

FOR i|=l TO nombreI 

maxi~MAX(valeur(i|) ,maxi) 

ADD somme,valeur(i|) 

NEXT i| 
fact=ly&/maxi 
alpha(0)=0 
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FOR i|=l TO nombre| 
x&(i|)-MUL(i|,dx£) 
ys (iI)=-vaieur(i|)*£act 

alpha (i |) =valeur (i | ) /somnic*3600+alpha (i I -1) 
NEXT i| 

XS (0)=0 
y&(0)=0 
RETURN 

FUNCTION getrer. 

RETURN XBIOS(4) 

ENDFUNC 


DONNEES 
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donnees: 

DATA 100,200,500,320,600,800 
DATA 200,600,500,890,470,560 
mois : 

DATA JANVIER, FEVRIER, MARS, AVRIL, MAI, UU1N 

DATA JUILLET,AOUT,SEPTEMBRE, OCTOBRE, NOVEMBRE,DECEKBRE 


UN MINI-PROGRAMME DE DESSIN 

Cc programme est unc initiation it la construction d'un logicicl de creation 
graphiquc. II pcrmel dc dcssincr, de charger ct dc sauvegarder des images aux 
formats Degas ct Ndocliromc. 

Fonctionnc dans toulcs les resolutions. Toutcfois, vous constate rex un pro- 
bldnc lors de la representation du ccrclc en moyenne resolution provenant de 
l'instruction CIRCLE elle-meme. 

Prograimne principal 

Lcs instructions suivantes sont facultatives; toulefois, ellcs facilitcront l'dcri- 
lure du programme. En effet, Iorsque les variables sont saisics (mode DEFLIST 
2), dies prenneni auLomaliquemcnt Ic bon sufiixc it l'aflichagc. 

ddsigne des mots (16 bits); 
ddsigne des octets. 


: tableau contcnant lc menu ddroulant; 

: tableau des coulcurs Ndochromc ct Degas ; 
: tableau de sauvegarde des coulcurs; 

: image derail courantc; 


DEFWRD "a-z” 
DEFBYT "b,n,i" 

Variables globalcs 

nienSO 

col&Q 

coul&() 

dessinS 






dos_back$ : image dcran prdeddente ; 

xs & : abscisse dc la position dc la souris ; 

y s& : ordonndc de la position de la souris ; 

es l : <5tat dcs boutons dc la souris. 

Procedure init 

Initialise les couleurs, les images derails ct fait appcl it la procedure d'initiali- 
sation du menu. 

Procedure init inenu 

Initialise les items du menu. Ellc laisse de la place pour les six accessoircs de 
bureau accessiblcs depuis le menu ddroulant le plus it gauche. 

Variable locale 

>1 : indicc de bouclc. 

Procedure couleur norme 

Initialise les couleurs d'dcriture et dc fond alin dc pouvoir lire clairement son 
programme en cas dc changcmcnt de la palette. 

Procedure traitetnent 

Pcnnct dc faire un branchemcnt sur la procedure conccmde it partir de l'ilem 
choisi contenu dans MENU(O). 

Procedure Info 

Donne dcs informations sur le programme. 

Procedure init dessin 

Initialise l'image derail ct la forme dc la souris. 

Procedure retour menu 

Capte l’dcran courant ct change le curseur souris en unc flfcche. 

Procedure point 

Affichc un point taut que le bouton gauche dc la souris rcslc enfoned. Si aucun 
bouton n'est pressd, lien ne se passe. On rctoumc au menu en cliquant sur le 
bouton droit. 

Procedure souris 

Ddlemiinc la position ct l’dtal de la souris. 

Procedure formesouris 
Ddfinit la lbrme dc la souris. 

Parametre : 

n l : code de la forme. 
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Procedure dessin 

Scion le paramdtre passd, celle procedure dcssinc unc lignc, unc X-Iignc, unc 
K-ligne, un rectangle ou un ccrclc. On rctoumc au menu en cliquant sur le 
bouton droit. 

Paramdtre : 

n| 

Variables locales : 
xi& 
yi& 
xs& 
ys& 
es| 

Procedure undo 

Pcrmct d'annulcr une operation en appuyanl sur la louche <UNDO>. Cette 
option n'est disponible que lorsquc le menu cst actif. 

Procedure terminer 

Pennel dc sortir du programme en sauvant, si besoin Cst, l'image en cours. 
Variable locale : 

b| : rdponsc it la boltc d'alcrtc. 

Procedure charger 

Permet dc charger unc image au format Ndochrome ou Degas. 

Variable locale : 

b| : rdponse it la boTte d'alerte. 

Proeddurc imagc_dcgas 

Charge unc image au format Degas PI 1, PI2 et PI3. Cette procedure vdrific si 
le fichier choisi esl bien unc image Degas. Pourdcs images provenant de Degas 
Elite, il faut tester unc longueur de lichier it 32066 octets et non 32034. Pour pi us 
de sdcuritd, vous n'avcz qu’it changer le test en : 

IF (LOF(# 1 )<>32034 AND LOF(#1)<>32066) OR ... 

Variables locales: 

b| : rdponse it la boite d'alerte ; 

nom$ : chcmin; 

choix$ : nom du fichier choisi. 

Procedure couleurdegas 

Charge dans les registries les couleurs du fichier Degas. 

Variable locale : 

i| : indice dc boucle. 

Procedure sauvedegas 

Sauvcgarde une image au format Degas PI 1, PI2 cl PI3. 

Variables locales : 

i| : indice de boucle ; 


: code de l'opdration k rdaliser. 

: abscissc dc ddpart; 

: ordonndc de ddpait; 

: abscisse courantc; 

: ordonnde courantc; 

: dtat des boutons de la souris. 





b[ 

nom$ 

choix$ 


: rdponsc ft la boftc d'alcne ; 
: chemin; 

: nom du iichicr choisi. 


Procedure imageneo 

Charge une image au format Ndochmmc. Ccue procedure vdrific si lc Iichicr 
choisi est bien une image Ndochrome. 

Variables locales: 

M : rdponsc h la boftc d’aleite ; 

»om$ : chemin; 

choix$ : nom du Iichicr choisi. 

Procedure couleur neo 

Charge dans les rcgistres les couleurs du ficliicr Ndochromo. 

Variable locale: 

>1 : indice dc bouclc. 

Procedure sauve neo 

Sauvegarde une image au fonnai Ndochrome. 

Variables locales : 

•I : indice dc boucle ; 

•>| : rdponse a la boftc d'aleitc ; 

n«m$ : chemin; 

choix$ : nom du Iichicr choisi. 

Procedure sauvegarde 

Propose la sauvegarde dc l'image en cours. 

Variable locale : 

b[ : rdponse il la bofie d'aleitc. 

Procedure couleur 

Cette procedure modifie la couleur d'dcriturc. 

Variables locales : 

i| : indice de boucle; 

xs & : ahscissc courantc ; 

ys& : ordonnde couranLe ; 

es l : dtat dcs boutons dc la souris. 

Procedure sauve_cou!eur 

Sauvegarde dans lc tableau coul&0 les couleurs acluellcs pour une dvcniuelle 
modification. 

Variable locale : 

■I : indice de boucle. 

Fonction getcolor 

Elle ddtennine la couleur d'un registie. Elle fait appcl it la fonction 7 du XBIOS. 
Paramdtre: 

n l : numdro du registie. 
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Fonttion getrez 

tile determine la resolution dol'dcran. Flic fait appel & la fonction 4 du XBIOS. 


Fonction physbase 

File determine l'adresse du premier octet de l’6cran physique. Elle l'ait appel 1 
la fonction 2 du XBIOS. 

Fonction squ 

Elle calcule le cam6 d'un nombre. 

Paramfetrc: 

n& : nombre. 
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Programme : 


DESSIN 


’ DEFWRD "a-z" 

' DEFBYT "b,n,i” 

i 

CLEAR 

init 

MENU men $() 

ON MENU GOSUB traitemenf. 
ON MENU KEY GOSUB undo 
DO 

ON MENU 
LOOP 
END 


PROCEDURES ET FONCTIONS 


PROCEDURE init 

DIM colfi(63),coul&(15) 

COuleur_norme 

sauve_couieur 

CLS 

SGET de3sin$ 

SGET des_back$ 
init_menu 
RETURN 

I 

PROCEDURE init_menu 
LOCAL i| 

DIM men$(50) 
i 1=0 
REPEAT 

READ mor.$(i|) 

INC i | 

UNTIL men$ (i |-1) =*■*" 
men$(i|-1)="" 

DATA Bureau, Informations 

DATA- 

DATA 1,2,3,4,5,6,"" 

DATA Fichier, Charger, Sauvogarder, Quitter, 
DATA Options, Point, Ligne, K-Ligne, X-Lig.ne 
DATA Boite, Cercle,"" 

DATA Couleurs, Couleur,"" 

DATA * 

RETURN 
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PROCEDURE couleur_norme 
SETCOLOR 0,1911 
SETCOLOR 15,0 
RETURN 


PROCEDURE traitement 
CLS 

SELECT menS(MENU(0)) 
CASE " Inf" 
info 

CASE " Cha” 
charger 
CASE " Sau" 
sauvegarde 


CASE " Qui" 
terminer 
CASE " Poi" 
point 

CASE " Lig" 
dessin (1) 

CASE " K-L" 
dessin(2) 

CASE " X-L" 
dessin(3) 

CASE " Boi" 
dessin (4) 

CASE " Cer" 
dessin(5) 

CASE " Cou" 
couleur 
ENDSELECT 
MENU men$() 

RETURN 

t 

PROCEDURE info 
LOCAL bI 

ALERT 1,"DESSIN",1,"VU",bI 
RETURN 


PROCEDURE init_dessin 
SPUT dessinS 
forme_souri3(5) 
RETURN 


PROCEDURE retOur_menu 
SGET dessinS 





forme_souris(0) 

RETURN 

I 

PROCEDURE point 
init_dessin 
DO 

souris 

EXIT IF es|"2 
SGET des_back$ 

PLOT xs&,ys£ 

LOOP 

retcur_menu 

RETURN 

I 

PROCEDURE souris 
REPEAT 

MOUSE xs&,ys&,es| 

UNTIL es|<>0 

RETURN 

PROCEDURE forme_souri3(n|) 

DEFMOUSE n| 

RETURN 

i 

PROCEDURE dessin(nl) 

LOCAL xi&,yi&,xs£,ys&,es| 

init_dessin 

DO 

souris 

EXIT IF os|-2 
WHILE M0USEK=1 
WEND 
xi&«xs& 
yi&=ys& 

SGET des_back$ 

i 1=1 

IF n|<>5 THEN 
PLOT xsfi,ys& 

END IF 
REPEAT 
souris 

EXIT IF es1=2 
WHILE MOUSEK-1 
WEND 

IF i|<>1 THEN 
SGET des_back$ 

ENDIF 
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i 1-0 

IF n|=4 THEN 

BOX xi&,yi&,xsfi,ysS 
ELSE 

IF n|=5 THEN 

CIRCLE xi.S, yi&, SQR (@scru (xi&-x3&) H @squ (yiS-ysS ) ) 
ELSE 

DRAW xiS,yi& TO xs&,ys& 

END IF 
END IF 

IF nI=2 THEN 
xi&-xs& 
yi£=ys& 

END IF 

UNTIL n|=1 OR n|“4 OR n|-5 
LOOP 

retourmenu 

RETURN 

i 

PROCEDURE undo 

IF MENU(14)=24832 THEN 
Swap dessinS,des_back$ 

SPUT dessinS 
MENU menS 0 
END IF 
RETURN 

I 

PROCEDURE terminer 
LOCAL b| 

ALERT 2,"|Voulex-vous 3auvegarder 
Icette image ?",1,"OUI|NON",bI 
IF bl=l THEN 
sauvcgarde 
ENDIF 

couIeur_nomne 

STOP 

RETURN 

PROCEDURE charger 
LOCAL b| 

ALERT 2,"IVoulez-vous sauvcgarder 
11'image precedente ?",1,"OUII NON",bI 
IF bI=1 THEN 
sauvegarde 
ENDIF 

ALERT 2,"|QueI est le format 
|de 1'image a charger ?", 2 , "NEO|DEGAS",b| 



ON b| GOSUB image_neo, irnagc_degas 

sauve_couleur 

retour_mcnu 

RETURN 

I 

PROCEDURE image_degas 

LOCAL bI,nom$,choix$ 
nom$="\* ,PI"+CHR$ (49+Ggetrez) 

FILESELECT nom$,,choix$ 

IF EXIST(choix$) AND ChoixSO"” THEN 
OPEN choixS 

IF LOF(#1)<>32034 OR 

RIGHTS(choixS,3)<>"PI"+CHR$ (49+0getrez) THEN 

ALERT 1, " |Ce n'est pas ur. fichier | au format DEGAS", 1, "VU", b| 
ELSE 
HIDEM 

BLOAD choix$,Gphygbase-34 
couleur_degas 
SHOWM 
END IF 
CLOSE #1 
END IF 

RETURN 

1 

PROCEDURE couleur_degas 
LOCAL i| 

FOR i|=0 TO 15 

colfi(i|)=CARD{@physbaso-32+KUL(i|, 2) } 

SETCOLOR i|,col& (i I) 

NEXT i| 

RETURN 

t 

PROCEDURE sauve_degas 
LOCAL i|,b|,nom$,choix$ 

HIDEM 

SPUT dessinS 
FOR iI=0 TO 15 

CARD{@physbase-32+MUL(i|,2) }=coul&(i I) 

NEXT i| 

BYTE {@physba3e-33)=@getrez 
BYTE(Gphysbase-34)=0 
r.om$="\* .PI"+CHR$ (49f0getrez) 

FILESELECT ncm$,"",choix$ 

IF choixSO" ” THEN 

ESAVE choixS,@physbase-34,32034 
END IF 
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SHOWK 

RETURN 

t 

PROCEDURE image neo 
LOCAL b|,nom$,choix$ 

IF @getrez=0 THEN 
nom$»"\*.NEO" 

FILESELECT nom$,choix$ 

IF EXIST(choixS) THEN 
OPEN choixS 

IF LOF (#1)032128 OR RIGHTS (choix$, 3) <>"NEO" THEN 
ALERT 1,"|Cc n’cst pas un fichier 
Iau format NEC",1,"VU",bI 
ELSE 
HIDEM 

BLOAD choix$,0physbase-126 
couleur_neo 
SHOWM 
ENDIF 
CLOSE #1 
ENDIF 
ELSE 

ALERT 1,"lUniquement |cn basse resolution !",1,"VU",b| 
ENDIF 
RETURN 


PROCEDURE couleur_neo 
LOCAL i| 

FOR i1=0 TO 15 

col& (i | ) =CARD{Gphysbase-124-)MUL (i | ,2)1 
SETCOLOR i|,colS (i|) 

NEXT i| 

RETURN 

T 

PROCEDURE sauvegarde 
LOCAL b| 

ALERT 2,"|Dans quel format voulez-vous 
Ivotre image ?",2,"NEOI DEGAS",b| 

ON b| GOSUB sauve_neo,sauve_degas 
RETURN 

I 

PROCEDURE 3auve_neo 

LOCAL i|,bl,nom$,choix$ 

IF Ggetrez=0 THEN 
HIDEM 

SPUT dessinS 
ARRAYFILL COl&(),0 




FOR i|—2 TO 17 

cols(i |)=coul&(i|-2) 

NEXT i| 

FOR iI=18 TO 23 
cols(i|)-6224 
NEXT i| 

cols(22)=11808 
FOR i|=0 TO 63 

CARD {@physbase-12 8+MUL(i | , 2 ) }=colS(i|) 

NEXT i| 
nom$="\*.NEO" 

FILESELECT nom$,"”,choix$ 

IF choix$<>"" THEN 

BSAVE choix$,@physbase-128,32128 
ENDIF 
SHOWN 
ELSE 

ALERT 1,"lUniquement len basse resolution !", 1,"VU",bI 
ENDIF 
RETURN 
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PROCEDURE couleur 

LOCAL i|,xsS,ysS,es| 

DEFMOUSE 3 
CLS 

FOR iI=0 TO 16 A (1/ADD(1,Qgetrez))-1 
DEFFILL i| 

BOX 45,8+i|*12,95,18+i|*12 
PBOX 46,9+i|*l2,94,17+i|*12 
NEXT i| 
souris 

FOR iI=0 TO 16 A (1/ADD(l,@getrez))-1 
IF xsS>45 AND xsS<95 AND ysS>8 f-i | * 12 AND ysS<18+i | *12 THEN 
COLOR i| 

ENDIF 
NEXT i| 

SPUT dessin? 
retour_menu 
RETURN 

T 

PROCEDURE sauve_COuleur 
LOCAL i| 

FOR iI=0 TO 15 

couls(i|)=@getcolor(i|) 

NEXT i| 

RETURN 
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FUNCTION getcolor(n|) 

RETURN XBIOS(7,n1,-1) AND SH777 
ENDFUNC 


FUNCTION getrez 
RETURN XBIOS(4) 
ENDFUNC 

i 

FUNCTION physbase 
RETURN XBIOS(2) 
ENDFUNC 


FUNCTION aqu(ni) 
RETURN MUL(n&,n&) 
ENDFUNC 


UNE TORTUE QUI DESSINE DES ARBRES 


Nous avons rccrdd les inslruclions du langage Logo au moyen de l'instruction 
DRAW. L'application, illustrant nos propos, dessinc un arbre tcmairc avcc scs 
fruits. 

Fonctionnc cn bassc resolution uniqucmcnt (facilcment adaptable pour les 
autrcs modes). 


Programme principal 

L'instruction suivantc cst facultative; toutefois, clle facililera l'dcriture du 
programme. En el'fet, lorsque les variables sont saisies (mode DEFLIST 2), 
cllcs prennent automaliquemeni le bon suflixe 1 l'aflichage. 

DEFWRD ”a-z" ddsigne dcs mots (16 bits). 


Procedure arbre 

Dessine un arbre tcmairc 

Param&res: 

n& 

l& 

a& 

Variables locales : 

da& 

c& 

ld& 

lc& 

lg& 


(chaquc branchc sc divisant cn trois autrcs). 

: niveau de l'arbrc ; 

: longueur du tronc ; 

: angle de la sous-branche gauche. 

: variation de Tangle ; 

: courbure de L'arbrc ; 

: longueur dc la sous-branche droite ; 

: longueur de la sous-branche centrale ; 

: longueur dc la sous-branche gauche. 


i 




Procedure tronc 
Dessine 1c tronc. 

Paramfctnes: 

n& : niveau de l'arbrc; 

l& : longueur du tronc. 

Procedure fruit 
Dessine un fruit. 

Variable locale : 

i| : indice de bouclc. 

Procedures simulant le langage LOGO : 

forwd 

back 

turnleft 

turnright 

penup 

pen down 

setpencolor 

Paramfctrcs : 

n& : longueur d'un ddplacement; 

a& : angle de rotation. 

Procedure couleur 

Initialise les coulcurs de l'arbre (marmn et vert). 
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Programme : 


ARBRE 


’ DEFWRD "a- 2 " 

i 

couleurs 

SETDRAW 150,190,0 
arbre(7, 70, 50) 

~INP(2) 

END 

T _____ 

' PROCEDURES ET FONCTIONS 

I _ ___________ _ 

PROCEDURE arbre(nS,Is, as) 

LOCAL das, cS,Ids,lcS,lgS 
IF nS>0 AND nS<8 THEN 
IF nS=2 THEN 
fruit 
END IF 

setpencolor(ADD(ns,1)) 
forwd(IS) 

tronc(DIV(MUL(ns,2) ,3) ,ls) 
turnleft(as) 

ldS=DIV(MUL(IS,10),ADD(RAND(5),13)) 
lcS=DIV(MUL(IS,10),ADD(RAND(5),13)) 
lg&**DIV (MUL (lS, 10) , ADD (RAND (5) , 13) ) 
daS=RAND(10)-5 
CS-RAND(40)-20 

arbre(PRED(ns),Ids,SUB(aS,daS)) 
turnright(SUB(aS,cS)) 
arbre(PRED(ns),lcS, SUB(as, das)) 
turnright(ADD(as,cS)) 
arbre(PRED(ns),lgs,SUB(as, das)) 
turnleft (as) 
penup 
back(ls) 
pendown 
END IF 
RETURN 

I 

PROCEDURE tronc(nS,Is) 
turnleft(90) 
forwd(ns) 
turnleft(90) 
forwd(lS) 








turnleft(90) 
forwd (MUL (r.S, 2) ) 
turnleft(90) 
forwd(ls) 
turnleft(SO) 
forwd(ns) 
turnright(90) 

IF n&>0 THEN 
tronc(n&-l.Is) 
END IF 
RETURN 

i 

PROCEDURE fruit 
LOCAL i| 
setpencolor(9) 
FOR i|-1 TO 8 
forwd(l) 
turnleft(45) 
NEXT i| 

RETURN 
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PROCEDURE forwd(nS) 

DRAW "fd",ns 
RETURN 

f 

PROCEDURE back(ns) 

DRAW "bk",n& 

RETURN 

i 

PROCEDURE turnleft(aS) 
DRAW "It",aS 

RETURN 

■ 

PROCEDURE turnright(as) 
DRAW "rt",as 
RETURN 

I 

PROCEDURE penup 
DRAW "pu" 

RETURN 


PROCEDURE pendown 
DRAW ”pd" 

RETURN 

I 

PROCEDURE setpencolor(nfi) 
DRAW "co",nS 


I 
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RETURN 

! 

PROCEDURE cculeurs 
VSETCOLOR 2 , 0, 6, 0 
VSETCOLOR 3,1,5,0 
VSETCOLOR 4,2, 4,0 
VSETCOLOR 5,1,4,2 
VSETCOLOR 6, 4, 3,1 
VSETCOLOR 7,4,3,2 
VSETCOLOR 8,4,3,3 
VSETCOLOR 9,7,1,0 
RETURN 


UN LUTIN AU BOUT DE LA SOURIS 


Ou comment ddplacer un cannibale avcc la souiis. Ce petit programme illuslre 
la manipulation dc I'instruction SPRITE. Des petits problemcs apparaisscnt 
lore de la collision de lutins. Nous vous proposons une solution pour dviter ce 
genre de ddsagrdmcnls. 

Fonctionne dans toutes les resolutions. 


Programme principal 
H gdre le ddplaccmcnt du lutin avec la souris. 

Les instructions suivantes sont facullativcs; toutefois, elles facilitcront 1’dcri- 
ture du programme. En effet, lorequc les variables sont saisies (mode DEB JST 
2), dies prennent automatiquement le bon suffixc & I'affichagc. 

DEFBYT "i " ddsigne des octets; 

DEFWRD "xs,ys,dx,dy" ddsigne des mots (16 bits); 

DEFWRD "lx.ly” ddsigne des mots (16 bits); 


Variables globales : 


: indice de bouclc ; 


XS& 

: abscisse de la souris; 

ys& 

: ordonndc de la souris ; 

dx& 

: ddplaccmcnt sur X ; 

dy& 

: ddplacement sur Y ; 

lx& 

: abscisse maximale de I'dcran ; 

lv& 

: ordonnde maximale dc l'dcran. 


Procedure resolution 

Determine la resolution de I'dcran et ddfinit les facteurs en consdquencc. 


Procedure init sprites 
Initialise les lutins. 


i 



Fonction getrez 

Rcnvoic la resolution dc l’dcran au moycn do la fonction 4 du XBIOS. 



Programme : 


SPRITES 


• DEFBYT "i" 

' DEFWRD "xs,ys,dx, dy" 

' DEFWRD "lx,ly" 

i 

init_sprites 

resolution 

HIDEM 

xsi-0 

ysS=0 

WHILE MOUSEK=0 
dx&=MOUSEX-xs& 
dy&=MOUSEY-ys& 

ADD xs&,dx£ 

ADD ysfi,dyS 

IF xafi>SUB(lx&,16) THEN 
xs&=SUB(lx&,16) 

END IF 

IF ysS>SUB(ly&,48) THEN 
ys&-SUB(ly&,48) 

END IF 

SETMOUSE xsS,ys& 

IF dx&<>0 OR dy&OO TitEN 

CARD{V:af rical$+8 )=ADD(RAND (nb_coul|),1) 
CARD(V:af rica2$+8 }=ADD(RAND (nb_coul|),1) 
CARD{V: africa3$4 8 )"ADD(RAND (nb_COul|),1) 
IF dyS>0 THEN 

SPRITE africa3$,xs&,ys&+32 
SPRITE africa2$,xs& , ya&+16 
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SPRITE africal$,x3£,ys6 
ELSE 

SPRITE africal$,xs£,ys& 
SPRITE a£rica2$ f xs£,ys6+16 
SPRITE africa3$,xs&,ysS+32 
END IF 
END IF 
WEND 
SHOWM 
END 


PROCEDURES ET FONCTIONS 


PROCEDURE resolution 
SELECT (Ggetrez) 

CASE 0 
1x6-320 
ly6=200 
nb_coulI=15 
CASE 1 
1x6=640 
ly£=200 
nb_coul|=3 
CASE 2 
1x6=640 
ly£=400 
nb_coulI=1 
ENDSELECT 
RETURN 

i 

PROCEDURE init_sprites 
RESTORE africal 

africal$=MKI$(0)+MKI$(0)+MKI$(0) 
africal$=africal$+MKI$(0)+MKI$(1) 

FOR i|=1 TO 16 

READ avant%,arriere% 

africal$=africal$+MKI$(arriere%)+MKI$(avant%) 
NEXT iI 

RESTORE africa2 

africa2$=MKI$ (0)+MKIS(0)+MKI$(0) 
africa2$=africa2$+NKI$(1)+MKI$(2) 

FOR i|=1 TO 16 

READ avant%, arriere?. 

africa2$=africa2$+MKI$(arriere%)+MKI$(avantl) 
NEXT i| 

RESTORE africa3 

africa3$=MKI$(0)+MKIS(0)+MKIS(0) 






africa3$=africa3$+MKI$(0) H-MKIS (1) 

FOR i|=1 TO 16 

READ avant%,arriere% 

africa3$=africa3$+MKI$(arriere%)+MKI$(avant%) 
NEXT i| 

RETURN 

I 

FUNCTION getrez 
RETURN XBIOS(4) 

ENDFUNC 


DONNEES DES SPRITES 


africal: 

DATA 768,0,4032,0,8160,0,53196,0 
DATA 32760, 0,53196, 0,8160,0, 15600,0 
DATA 24600,0,16392,0,23784,0,17160,0 
DATA 18504,0,20424,0,8208,0,6240,0 
a£rica2: 

DATA 1156,0,1166,0,1166,0,2143,0 
DATA 6244,0,4132,0,8212,0,8212,0 
DATA 16396,0,18508,0,22636,0,39012,0 
DATA 38996,0,26700,0,4132,0,4132,0 
africa3: 

DATA 8164,0,8164,0,8164,0,8164,0 
DATA 8164,0,5284,0,5284,0,5284,0 
DATA 5284,0,5284,0,5284,0,5284,0 
DATA 528 4, 0,5284,0,30840,0, 63 612,0 


DES ROUTINES A INTEGRER 
DANS VOS PROGRAMMES 


Remettre & jour la palette de couleurs 

Lors des manipulations sur les couleurs, rutilisatcur perd sa palette originate 
(celle qui s’installc h la mise en route). Voite pounquoi il esl intdrcssam de sc 
erder une palette standard qui gardcra les bonnes couleurs aux bons registres. 
Pour cel a, nous allons utiliscr 1’instruction VSETCOLOR (non documents 
dans le GFA 3.0) qui est similaire i SETCOLOR, sauf que l'on n' a pas k sc 
soucicr de la table de iranscodage entre numdros des couleurs et nunidros des 
registres. 
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Voici les couleurs de la palette standard 


Numdro 

Couleur 

Codage 

0 

BLANC 

7,7,7 

1 

NOIR 

0,0,0 

2 

ROUGE 

7,0,0 

3 

VERT 

0,6,0 

4 

BLEU 

0,0,7 

5 

BLEU MARINE 

0,0,5 

6 

BRUN 

5,2,0 

7 

VERT FONCE 

0,5,0 

8 

GRIS 

5,5,5 

9 

GRIS FONCE 

2,2,2 

10 

BLEU CLAIR 

0,7,7 

11 

BLEU VERT 

0,5,5 

12 

VIOLET 

7,0,7 

13 

VIOLET FONCE 

5,0,5 

14 

JAUNE FONCE 

5,5,0 

15 

JAUNE CLAIR 

7,7,0 


PROCEDURE couleur_resct 
VSETCOLOR 0,7,7,7 
VSETCOLOR 1,0,0,0 
VSETCOLOR 2,7,0,0 
VSETCOLOR 3,0,6,0 
VSETCOLOR 4,0,0,7 
VSETCOLOR 5,0,0,5 
VSETCOLOR 6,5,2,0 
VSETCOLOR 7,0,5,0 
VSETCOLOR 8,5,5,5 
VSETCOLOR 9,2,2,2 
VSETCOLOR 10,0,7,7 
VSETCOLOR 11,0,5,5 
VSETCOLOR 12,7,0,7 
VSETCOLOR 13,5,0,5 
VSETCOLOR 14,5,5,0 
VSETCOLOR 15,7,7,0 
RETURN 


Quelle est la resolution de I'ecran ? 


Void comment determiner la resolution de I'dcran au moyen de la fonction 4 
du XBIOS (getrez). 


FUNCTION getrez 
RETURN XB10S(4) 
ENDFUNC 





Quelle est la couleur d'un registre ? 

Voici comment determiner la couleur d’un registre au moyen dc la fonclion 7 
du XBIOS (sctcolor). 

FUNC110N getcolor(nl) 

RETURN XB10S(7,nl,-l) AND &H777 
ENDFUNC 


Quelle est I’adresse de I’ecran physique ? 

Voici comment determiner 1’adressc du premier octet de 1'ecran physique au 
moyen de la fonction 2 du XBIOS (physbasc). 

FUNCTION physbasc 
RETURN XB10S(2) 

ENDFUNC 


Quelle est I'adresse de I’^cran virtuel ? 

Voici comment determiner I'adresse du premier octet de 1’ecran physique au 
moyen dc la fonclion 3 du XBIOS (logbasc). 

FUNCTION logbasc 
RETURN XBIOS(3) 

ENDFUNC 









Afin dc simplifier la vie du programmeur, la lignc A offre dcs fonctions 
graphiqucs primaires plus compliqudes, mais dgalement bcaucoup plus rapides 
quc les lonctions graphiques GEM. Le nom provicnt du branchemcnt effectud 
par le MC 68000 au vectcur d'cxception $10 lors de la renconirc de codes dom 
les 4 bits de poids fort sont 1010, soil A en hexadecimal. 

Voici la lisle dcs instructions traitdcs dans ce chapitre : 


ACHAR 

ACLTP 

ALINE 

APOLY 


ARECT 

ATEXT 

BITBLT 

HL1NE 


L~A 

PSET 

PTST 


ACHAR code,x,y,fonte,style,angle 

code,x,y,fontc,style,angle : expressions numdriques emigres. 

Cette instruction dditc it la position (x,y) spdeifide Ic caracldre dont le code 
ASCII est le paramdtre code, 
fontc: 

0:6x6; 

1 :8x8 ; 

2:8x16; 

au-deli dc 3 (header de fontes). 
style : Oi 31 ; 

angle : 0, 900, 1800 ou 2700. 

ACLIP flag,x0,y0,xl,yl 

flag : expression numdrique booldctme ; 

x0,y0,x1,yl : expressions numdriques entidres. 

Cette instruction limite les tracds dcs fonctions graphiques dc la LINE-A 
(clipping) it un rectangle dont le coin supdricur gauche a pour coordonndes 
(x0,y0) ctlc coin infdrieur droit a pour coordonndes (xl.yl). Lorsque flag=0 ; 
il y a ddsactivation dc la zone de limitation. Attention: les iaslructions ALINE, 
BITBLT, HL1NE, PSET ct PTST ne sont pas concemds par cctle limitation ! 
e 

ALINE xl ,yl,x2,y2,couleur,masque,mode 
xl,yl,x2,y2,couleur,masque,mode : expressioas numdriques entidres. 

Cctle iastruction trace une ligne entre les points de coordonndes (xl.yl) et 

(x2,y2). 

mode : 

1 : remplacement; 

2 : transparent; 

3 : inversion; 

4 : transparent inverse. 

APOLY adrl,nl,yl TO y2,couleur,mode,adr2,n2 
adrl,nl,yl,2,coulcur,mode,adr2,n2 : expressions numdriques entidres. 
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Cette instruction trace un polygone tramd (sansligne de contour). Lc tableau dc 
coordonndes points par adrl est structure conunc une lisle des couples de 
coordonndcs des points sommets du polygone. Le rcmplissagc dc trainc csl 
compris entre les deux limites horizontalcs yl ct y2. 

Lc paramdtre couleur indique la coulcur entre 0 ct 15. 

Le mode graphique nc correspond pas cclui de GRAPHMODE : 

0 : remplacement; 

1 : transparent; 

2 : XOR (OU cxclusil) ; 

3 : transparent inverse. 

l'adrcsse adr2 pointe sur un tableau qui contient des mots qui codcnt lc motif 
graphique. Le paramdtre n2 contient lc nombre de motifs a prendre avant dc 
recommencer avec le premier motif (n2=0). 

ARECT xl ,yl ,x2,y 2,couleur,mode,adr,n 

xl,yl,x2,y2,couleur,mode,adr,n : expressions numdriques entidres. 

Cette instruction est dquivalenlc it PBOX, elle trace un rectangle plcin entre les 
points de coordonndes (xl.yl) ct (x2,y2). Lc paraindtre couleur indique la 
coulcur entre 0 ct 15. 

Le mode graphique ne correspond pas 4 cclui dc GRAPH MODE : 

0: rcmplaccmcni; 

1 : transparent; 

2 : XOR (OU exclusif) ; 

3 : transparent inverse. 

l'adrcsse adr pointe sur un tableau qui contient des mots qui codcnt lc motif 
grapliiquc. Lc paramdtre n contient le nombre de motifs & prendre avant de 
recommencer avec lc premier motif (n=0). 

ATEXT x,y,fonte,ch$ 

ch$ : expression alphanumdrique ; 

x.y.fonte : expressions numdriques entiircs. 

Cette instruction ddite la chafne de caractdrcs ch$ it 1’dcran aux points de 
coordonndes (x,y). 
fonte: 

0:6x6; 

1 :8x8; 

2:8x16; 

au-deli de 3 (header de fontes). 

BITBLT bloc-sourccO,bloe-objct(),paramO 
BITBLT adr 
BITBLT tab() 

Cette instruction permet la copic dc bloc paramdtrde (VDI). 

Paramdtrcs: 

bloc-sourceO ct bloc-objct(): 

(0): adresse du bloc ; 

(1): largeur du bloc (multiple de 16) 
exprimde cn pixels; 




(2) : hauteur du bloc (pixels); 

(3) : largeur du bloc en nombre de mots 

16 bits (largeur pixcls/16) ; 

(4) : 0; 

(5) : nombre dc plans dc bits : 1 en haute 

resolution, 2 en moyenne, 4 en basse. 

param(O): abscissc (X) du coin supdricur gauche 
(rectangle source); 

(1) : ordonnde (Y) du coin supdricur gauche 

(rectangle source); 

(2) : abscissc (X) du coin infdricur droit 

(rectangle source); 

(3) : ordonnde (Y) du coin infdricur droit 

(rectangle source); 

(4) : abscissc (X) du coin supdricur gauche 

(rectangle objet); 

(5) : ordonnde (Y) du coin supdricur gauche 

(rectangle objet); 

(6) : abscisse (X) du coin infdricur droit 

(rectangle objet); 

(7) : ordonnde (Y) du coin infdricur droit 

(rectangle objeL); 

(8) : mode graphique: entre 0 ct 15 (voir 

l'instruction d'ddition dc bloc : PUT). 


En GFA Basic, l'instruction B1TBLT avee un seul paramdLre cst un appel dc la 
LINE-A, qui permet la copic de bloc paramdlrde. Lc paramdtrc adr est la 
premidre adrcsse d'une zone de 76 octets. Le tableau iab() estun tableau de taille 
minimalc dgale h vingl-irois mots longs (32 biLs). La table ci-dcssous indique 
done deux indices : suivanl i-8 (en nombre d'oetets au-dcUt de adr), ou suivant 
i-32 (indice du tableau t): 

i-8 i-32 

00 00 Largeur du bloc (pixels); 

02 01 Hauteur du bloc (pixels) ; 

04 02 Nombre dc plans de coulcur (destination); 

06 03 Coulcur de premier plan destination ; 

08 04 Couleur de l'arridre-plan ; 

10 05 Mode graphique (cf PUT); 

14 06 Origine X du bloc source ; 

16 07 Origine Y du bloc source ; 

18 08 Adressc de base du bloc source. 

22 09 Ddcalage (offset) du mot suivant dans la ligne ; 

24 10 Ddcalage vers la ligne suivantc dans le plan 

(bloc source); 


i 
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26 

11 

Ddcalagc vers prochain niveau de couleur; 

28 

12 

Minimum horizontal (destination); 

30 

13 

Minimum vertical (destination); 

32 

14 

Adrcsse du bloc destination ; 

36 

15 

Ddcalagc vers mot suivant dans la ligne 
(destination); 

38 

16 

Ddcalage vers ligne suivantc dans le plan 
(destination); 

40 

17 

Ddcalage vers le prochain niveau de couleur; 

42 

18 

Adrcssc dc la zone destination ; 

46 

19 

Ddcalage vers prochaine ligne du masque ; 

48 

20 

Ddcalage vers la coulcur suivantc du motif 
de rcmplissage; 

50 

21 

Facteur de repetition du motif (n-motifs dans 
l’instruction HLINE); 

52 

22 

Les vingt-quatrc octets qui suivent doivent elrc nuls, 
e’est une zone de travail du blitter. 


HLINE xl,y,x2,couleur,mode,adr,n 

x1,y,x2,couleur,mode,adr,n : expressions numdriques entidrcs. 

Ceue instruction trace une ligne horizontale entre les points de coordonndes 
(xl,y) ct (x2,y). 

Le paramdtrc coulcur indique la couleur entre 0 ct 15. 

Le mode graphique nc correspond pas it celui de GRAPH MODE : 

0 : remplaccmcnt; 

1 : transparent; 

2 : XOR (OU exclusil) ; 

3 : transparent inverse. 

l'adresse adr pointe sur un tableau qui conticnt des mots qui codent le motif 
graphique. Le paramdtre n contient le nombre de motifs it prendre avant de 
rccommencer avec le premier motif (n=0). 

L~A 

Cette fonction renvoic l’adresse de base des variables dc la ligne A. 

PSET x,v,couleur 

x,y.coulcur : expressions numdriques entidres. 

Cette instruction cst dquivalcntc i PLOT. 

PTST(x,y) 

x,y : expressions numdriques entiircs. 

Cette instruction esl dquivalcntc & POINT, 




GESTION 
DES FENETRES, 
DES MENUS 
ET DE LA SOURIS 





Pour manipulerles fcndtrcs, lcs boites d’alcrtc, la souris, lcs menus ddroulants, 
le GFA Basic 3.0 met i la disposition du pragrammeur une panoplic complete 
d'instructions ct dc fonctions. Pratiques et faciles & mettrc en oeuvre, cllcs 
permettent d'obtenir rapidement une presentation des applications plus soi- 
gnde, plus profcssionnelle. 

Voici la liste des instructions ct des fonctions traitdes dans ce chapitrc : 


ALERT 

CLEARW 

CLOSEW 

CLS 

CRSCOL 

CRSLIN 

DEFMOUSE 

FULLW 

IITDEM 

INFOW 

MENU 


MENU KILL 

MENU OFF 

MENUO 

MOUSE 

MOUSEK 

MOUSEX 

MOUSEY 

MENU 

ON MENU GOSUB 
ON MENU BUTTON 


ON MENU 1BOX 

ON MENU KEY 

ON MENU MESSAGE 

ON MENU OBOX 

OPENW 

SHOWM 

SETMOUSE 

TITLE W 

TOPW 

WINTAB 


On parlera aussi dc deux fonctions pcnnetlant la communication entre GEM ct 
le GFA Basic : W_HAND et WJNDEX. 

A LERT a,chl$,b,ch2$,variable 
a,b : expressions numdriques entities ; 
chlS,ch2$ : expressions alphanumdriques ; 
variable : variable numdrique entidrc. 

Cette instruction affiche une bolte d'alarme au centre de 1'dcran. Le paramdtre 
"a" ddsigne le symbole affichd dans le ON panonccau d'alerte (cn haul & 
gauche). 

a = 0 pas de symbole ; 
a = 1 ! 
a = 2 ? 
a = 3 STOP. 

La chaTne chi S conlient le texte principal. Les lignes (quatre au maximum) sont 
sdpardcs par le caractdre "I", ch2$ contient le texte relatif it chaque bouton de 
choix (trois au maximum), dgalcmcnt sdpards par le caracldre "I", b indique 
lequcl des trois boutons cst (surlignd) pris par ddfaut si l’on tape sur la touche 
<RETURN> (ou <ENTER>). La variable contiendra le numdro du bouton 
sclectionnd (b=l, 2, ou 3). 

Par exemplc: 

Alert l,"Uniquement len basse rdsolution M ,l p "VU",B% 
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Quel est le fornat 
de 1 1 inage a charger ? 


nm 


iwn 


CLEARVV n *\ 

n : expression numdrique entidrc. 

EITace le contenu de la fenetre numdro n. 

CLOSEW n 

n expression numdrique cnticre. 

Cette instruction ferme la fenetre numdro n. 

CLS 

Cette instruction efface 1'dcran. 

CRSCOL 

Cette fonction rcnvoic la eolonne du curscur texte. 

CRSLIN 

Celle fonction rcnvoic la ligne du curscur texte. 

DEFMOUSE n 
DEFMOUSE var$ 
n : expression numdrique entidre ; 
var$ : expression alphanumdrique. 

Cette instruction ddfinit la forme de la souris : 
n = 0 Fldchc ; 
n = 1 X allongd ; 
n = 2 Abcillc; 

n = 3 Main avec doigt pointd ; 
n = 4 Main plate ; 
n = 5 Rdticule fin ; 
n = 6 Rdticule dpais ; 
n = 7 Rdticule avec contour. 

Si l'on ddsire donner soi-meme, le motif de la souris il suffit de ddfinir varS 
ainsi : 

var$ = MKI$(coordonnde x du point d’action) 

+ MKl$(coordonnde v du point d’aciion) 

+ MKI$(1) 

+ MKl$(coulcur du masque) gdndralcmenl 0 
+ MKI$(couleur du curseur) gdndralemcnt 1 






+ M$ MS dtant compost de 16 MKIS 
+ CS C$ dtant composd dc 16MKI$ 
voir MKI$ pour plus dc precision 

FULLW n 

n expression numdrique entidrc. 

Cette instruction agrandit la fenetrc numdro n k la taillc de I'dcran tout entier. 
HIDEM 

Cette instruction cache 1c curscur de la souris. 

INFOYV n,"Iigne" 
n expression numdrique entidre. 

Cette instruction place ou remplace la lignc d'information (situde sous le tiLre) 
dc la fenetrc n. 1NFOW n.'"' doit prdcddcr OPEN W, si Ton ddsire une fcndlre 
sans Iigne d'information. 

MENU tableau$() 

t.ablcau$(): tableau alphanumdriquc. 

CelLe instruction aflichc ct active le menu contcnu dans tableauSO, tableau 
alphanumdriquc dimcnsionnd avcc une valeur au moins dgale au nombrc 
d'options. Ce dernier ddfinit it lui scul l'cnsemble dcs parametres utiles it la 
crdalion du menu ; ses titres et ses diffdrentes options. Ses dldments sonl 
initialisds comme suit: 
tableau$(0) = dire 1 (principal) du menu ; 
tablcau$(I) = rdservd cn gdndral it la ligne d'information ; 
lableau$(2) = sdrie de traits d’union ddsactivant la lignc qui est dcstinde k 
sdparer les acccssoires; 

tablcauS(3) = chafnc muette non vide tdservant dc la place pour l'accessoirc 
numdro 1 ; 

tablcau$(4) = chafnc muette non vide rdservant dc la place pour l'accessoirc 
numdro 2 ; 

t.ablcau$(5) = chafnc muetle non vide rdservant de la place pour l'accessoirc 
numdro 3 ; 

tablcau$(6) = chafnc muette non vide rdservant dc la place pour l'accessoirc 
numdro 4 ; 

tablcau$(7) = chafnc muette non vide rdservant dc la place pour l’accessoirc 
numdro 5 ; 

lableau$(8) = chafnc muette non vide rdservant dc la place pour l'accessoirc 
numdro 6 ; 

lableau$(9) = chafne vide pour indiquer la tin du titrc 1 ; 
tablcau$(10) = titrc 2 du menu (10 caracLdres maximum); 
lableau$(ll) = option 1 du litre 2 ; 
tablcau$(12) = option 2 du titrc 2 ; 
tab!eauS(13) = option 3 du litre 2 ; 

lablcau$(10+n) = option n du litre 2 ; 
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tableauS(10+n+l) = chafne vide pour indiquer la fin du litre 2 ; 

tableau$(x) = chaine vide pour indiquer la fin du litre m ; 
tab!cau$(x+l) = chafne vide pour indiquer la fin du menu. 

La structure employee pour lc litre 2 doit l’dlrc dgalcmcnt pour les suivams 
(tableau(l 0) it tableau(10+n+l)). Les options commcn^ant par un trait d’union 
sont inactivdes et affichdes cn grisd. Deux chafncs vides terminent le menu. 

MENU KILL 

Cette instruction ddsactive le menu ddroulant actuellement fonctionnel sans 
l'effacer. On peul & la suite de cette instruction aclivcr un nouveau menu 
ddroulant avec les instructions MENU tableau$() et ON MENU GOSUB proc. 

MENU OFF 

Cette instruction reinitialise lc menu : les titres dvcntuclJcmcnt affichds cn 
inversion viddo sont it nouveau affichds en clair, il est conseilld de placer cette 
iastruction en fin de la procedure de traitement du menu ddroulant afln de 
retrouver celui-ci pret it un nouvel emploi. 

MENU(indice) 

indice : expression numdrique entidre. 

Retoume les renseignemenls ndeessaires au traitement d'un dvdnement, ceux- 
ci sont renvoyds dans le tableau MENUO. les indices variant de 0 & 15 : 
MENU(l) identific rdvdncmcnt qui s’est produit. Scion les valeurs qu'il prcnd, 
on trouvera dans les indices suivants les complements ndeessaires au traitement 
de l'dvdncment. La valcur appcldc handle identific lc gestionnaire d'unc appli¬ 
cation, en 1’occurrcnce une fcnctre : 

MENU(l) = 10 choix du menu ddroulant; 

MENU(0) = index de l'option choisic dans le tableau de definition; 
MENU(4) = numdro du litre ; 

MENU(5) = numdro de l'option ; 

MENU(l) = 20 redcssinc une panic de la fendtrc ; 

MENU(4) = handle ; 

MENU(5) = coordonndc x de la fendtrc ; 

MENU(6) = coordonndc y de la fendtrc ; 

MENU(7) = largeur de la fendtre ; 

MENU(8) = hauteur de la fendtrc ; 

MENU(l) = 21 clic sur la fendtre ; 

MENU(4) = handle ; 

MENU(l) = 22 clic sur la case de fcrmciurc ; 

MENU(4) = handle ; 

MENU(l) = 23 clic sur la case d'agrandissement maximal ; 

MENU(4) = handle ; 

MENU(l) = 24 clic sur une des quatre fldches ou une des deux barres grises, 
remonte d'une ligne le contenu d'unc fendtrc ; 

MENU(5) = indicc du scrolling choisi: 

0 = page entidrc vers le haut; 
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1 = page entibre vers Ie bas ; 

2 = unc ligne vers 1c haut; 

3 = une ligne vers le bas ; 

4 = page entibre vers la gauche ; 

5 = page entibre vers la droitc ; 

6 = un cran vers la gauche ; 

7 = un cran vers la droitc ; 

MENU(l) = 25 clic sur l'ascenscur horizontal; 

MENU(4) = handle; 

MENU(5) = position relative de l'ascenscur (0-1000); 

MENU(l) = 26 clic sur l’ascenscur vertical; 

MENU(4) = handle ; 

MENU(5) = position relative de l'ascenscur (0-1000); 

MENU(l) = 27 clic sur la case de changement de taillc ; 

MENU(4) = handle ; 

MENU(5) = coordonndc x de la fenctrc ; 

MENU(6) = coordonnde y de la fcnblre ; 

MENU(7) = nouvellc largeur de la fcnctic ; 

MENU(8) = nouvelle hauteur de la lenetre ; 

MENU(l) = 28 clic sur la barre de ddplacemcnt; 

MENU(4) = handle; 

MENU(5) = nouvelle coordonndc x de la lenetre ; 

MENU(6) = nouvelle coordonnde y de la fenbtre ; 

MENU(7) = largeur de la lenetre ; 

MENU(8) = hauteur de la fcnblrc ; 

MENU(l) = 29 activation d'unenouvelle fenctrc (appartenant it un acccssoirc); 
MENU(4) = handle ; 

MENU(l) = 40 selection d'un acccssoirc ; 

MENU(5) = identilicatcur du menu ; 

MENU(l) =41 dbsactivation d'un acccssoirc; 

MENU(4) = identificatcurdu menu ; 

MENU(9) contient Ie drapeau de I'bvdnemcnt, celui-ci est codd cn une sdrie de 
bits dont chacun reprdsente une catdgorie d'dvdnemcnt: 

bit 1 = 1 appui des touches du clavier; 

bit 2 = 1 appui des touches de la souris ; 

bit 3 = 1 appui de la touche 1 de la souris ; 

bit 4 = 1 appui de la touche 2 de la souris ; 

bit 5 = 1 message GEM (par cxcmplc clic sur la case 

d'agrandissement) ; 

bit 6 = 1 timer; 

MENU(10) abscisse de la souris ; 

MENU(11) ordonndc de la souris ; 

MENU(12) touches de la souris : 

1 = touche gauche ; 

2 = touche droile ; 

3 = les deux touches; 

MENU(13) dtat des touches de contrdlc ; 
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1 = <SHIFT droit> ; 

2 = <SHIFT gaucho ; 

4 = <CONTROL> ; 

8 = <ALTERNATE> ; 

si plusicurs touches sont simultandment appuydcs, on obticnt l'addition des 
codes dldmcntaircs, par cxcniplc <SH1FT droil>+<ALTERNATE> = 9 ; 
MENU(14) code clavier de la louche appuydc ; 
octets poids fort = code SCAN ; 
octets poids faiblc = code ASCII; 

MENU(15) nombre dc dies associds & l'dvdnement; 

MOUSE x,y,k 

x,y,k : expressions numdriques entidres. 

Cette instruction place dans les variables x, y les coondonndcs dc la souris ct 
dans la variable k l'dtat instantand des touches dc la souris : 
k = 0 aucunc louche n’est enfonede ; 
k = 1 la touche droitc cst enfonede ; 
k = 2 la touche gauche est enfonede ; 
k = 3 les deux touches sont enfonedes. 

MOUSEK 

Conticnt l'dtat instantand des touches de la souris (voir MOUSE). 

MOUSEX 

Conticnt l'abscisse dc la souris 
MOUSEY 

Conticnt 1'ordonndc dc la souris. 

ON MENU 

Cette instruction provoque, lors d'un dvdnemenl, Ie branchement aux proeddu- 
resindiqudes paries instructions ON MENU, ON MENUTROX GOSUB, ON 
MENU OBOX GOSUB, ON MENU MESSAGE GOSUB, ON MENU 
BUTTON GOSUB et ON MENU KEY GOSUB. 

ON MENU GOSUB procedure 

Cette sdqucncc destructions ddfinil la proeddure i appeler lorsquc 1'unc des 
options du menu ddnoulant a dtd sdlectionndc. La proeddure ddtennincra le 
traitemcnl conespondant grSce a MENU(O) (voir MENU(indicc). 

ON MENU BUTTON a,b,c GOSUB procedure 
a,b,c : expressions numdiiques cnlidrcs. 

Celle sdquence d'instructions ddfinit la proeddure i appeler lorsquc la souris 
change d’dtat. (voir MENU(indicc). 

Lc paramdlre "a" indique le nombre de dies maximal a scrutcr, Ic paramdtre "b" 
ddsigne le ou les boutons h examiner : 
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b = 0 aiicun; 
b = 1 bouton gauche ; 
b = 2 boulon droit; 
b = 3 les deux boutons. 

Lc paramdlre "c" indique l'dtat du ou dcs boutons (0=non enfoned, 1 = onioned). 

ON MENU 1BOX i,x,y,l,h GOSUB procedure 
i,x,y,I,h : expressions numdriques entidres. 

Cette sdqucncc d'instnictions ddfinit la proeddure cl appclcr lorsque la souris 
entrc & l'inldrieurd'un rectangle ddfini parson coin supdricur gauche (coordon- 
ndcs x et y), sa longueur et sa hauteur (voir MENU (indice). 

ON MENU KEY GOSUB procedure 

Cette sdqucncc d’instructions ddlinilla proeddure cl appclcr lorsque l’on agit sur 
lc clavier. La variable MENU(14) conlieni L'ensemble dcs codes dc la touche 
pncssdc (voir MENU(indice). 

ON MENU MESSAGE GOSUB procedure 

Cette sdqucncc d’instnictions ddfinit la proeddure a appclcr lorsque i'on agiL sur 
unc fcnclre, par exemple si l'on clique sur lc boulon d’agrandissement (voir 
MENU(indice). 

ON MENU OBOX i,x,y,l,h GOSUB procedure 
i,x,y,l,h : expressions numdriques entidres. 

Cette sdqucnce d'inslructions ddfinit la proeddure h appeler lorsque la souris 
enlre et l'exldricurd'un rectangle ddfini par son coin supdricur gauche (coordon- 
ndcs x et y), sa longueur et sa hauteur (voir MEN'U(indice). 

OPENW n[,x,y] 

n,x,y : expressions numdriques entities. 

Cette instruction ouvre la fendtre numdro n. Si les parametres optionncls x et y 
sont spdeilids, ils correspondent aux coordonndcs du point d’interscction des 
quatre fenfitrcs possibles. 

SHOWM 

Cette instruction visualise le curseur dc la souris. 

SETMOUSE x,y[,k] 

x,y,k : expressions numdriques entidres. 

Cette instruction place lc curseur de la souris au point dc coordonndcs (x,y). Lc 
paramdlre "k” permet dc simulcr une pression sur un bouton de celle demidre 

k = 0 aucune touche n'est enfonede ; 
k = 1 la touche droile est enfonede ; 
k = 2 la touche gauche est enfonede ; 
k = 3 les deux touches sont enfoncdcs. 
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TITLEW n," litre" 
n expression numdrique entidre. 

Cctic instruction donne ou rcdonne un litre 1 la fenetre n. TITLEW n,""doit 
prdcdder OPENW, si 1'on ddsire une fenetre sans litre. 

TOPW #n 

n expression numdrique entidre. 

Ceue instruction active la lendtre numdro n. 

WINTAB 
WINTAB(ij) 

i,j: expressions numdriques entieres. 

Toutcs les routines, utilisant les fend ires, ndeessitent l'emploi d'une table 
appelde WINDTAB composde de mots dc 16 bits. Cette demidre pcul dire 
utilisdc aussi bien en lecture qu'en dcrilurc (initialisation ou modification). Le 
GFA Basic reconnail la variable WINTAB qui contient. 1'adrcsse du premier 
dldment de la tabic. On peut aussi manipulcr cctic table comme un tableau H 
deux dimensions, le premier indice ddsignant le numdro de la fendtrc (0 it 4) ct 
le second la nature du paramdtre H modifier (0 pour le handle, 1 pour l’aiiribut, 
2 pourl'abscisse du coin supdrieur gauche, 3 pourl’ordonnde du coin supdricur 
gauche, 4 pour la largcur, 5 pour la hauteur). 

Un paramdtre sur 12 bits significatifs que l’on nomme altribul de la fendtrc 
spdeilie les dldments composant cette mdme fendtrc. II cst calculd, comme suit, 
chaquc dldment dtant associd it un bit mis it un lorsque cel dldment est prdsent: 

1 = barre pour le nom de la fenetre, cet attribut cst toujours prdsent (bit OH 1); 

2 = case de fermeture (bit 1) ; 

4 = case plein dcran (bit 2); 

8 = barn; dc ddplaccmcnt (bit 3); 

16 = ligne d’information (bit 4); 

32 = case dc laillc (bit 5); 

64 = fldche haute de I'asccnscur vertical (bit 6); 

128 = fldche basse de l'ascenseur vertical (bit 7); 

256 = ascenseur vertical (bit 8); 

512 = fldche gauche de l'ascenseur horizontal (bit 9); 

1024 = fldche droitc dc l'ascenseur horizontal (bit 10); 

2048 = ascenseur horizontal (bit 11). 

WINTAB est composde comme suit: 

WANTAB+0 = handle dc la premidre fendtrc ; 

WINTAB+2 = attributs de la premidre fendtrc ; 

WINTAB+4 = abscisse X dc la premidre fendlre ; 

WINTAB+6 = ordonnde Y dc la premidre fendtrc ; 

WINTAB+8 = largeur de la premidre fenetre ; 

WINTAB+10 = hauteur de la premidre fendtrc ; 

WINTAB+12 

H = identiques pour la deuxidme fendtrc ; 

WINTAB+22 
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WINTAB+24 

a = idcnliques pour la troisidme lend Ire ; 

W1NTAB+34 

WINTAB+36 

& = identiqucs pour la quatridme fenfitre; 

WINTAB+46 
W1NTAB+48 
i = inutilisi5; 

WINTAB+50 

WINTAB+52 = abscissc X de l'dcran sans la barrc de menu ; 
W1NTAB+54 = ordonndc Y dc l'dcran sans la barrc do menu ; 
WINTAB+56 = largeur de l'dcran sans la barrc de menu ; 

W1NTAB+58 = hauteur dc 1’dcran sans la barrc dc menu ; 

WINTAB+60 = abscisse X du point d'intcrseclion dcs quatre fenelres ; 
WINTAB+62 = ordonndc Y du point d'intcrseclion des quatre fcnctrcs ; 
W1NTAB+64 = abscissc X dc l'origine pour les instructions graphiques ; 
WINTAB+68 = ordonndc Y dc l'origine pour les instructions graphiques. 

W_HAND(#n) 

n : expression numdrique enlierc. 

CcLte fonction rcnvoic le handle, code GEM de la fend ire n. 

W_INDEX(#handle) 

handle : expression numdrique entidre. 

Cette fonction renvoie le numdro dc la fendtre associde a ect handle. 





EXEMPLE 

DE PROGRAMMATION 
DES FENETRES 
ET DE LA SOURIS 
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Chaque programme cst donnd dans son intdgralite et decortiqud afin dc vous 
expliquer comment fonctionne Ics divcrscs instructions. Les programmes 
fonctionncni dans la mesure du possible dans les trois resolutions dc 1'Atari ST. 


VISITE GUIDEE DES FENETRES 

Ce programme gcre simultandmcnt tous les types d’dvdnements qui peuvent sc 
produirc ct affiche les nfsullaLs. 

Programme principal 

Les instructions suivantes sont facultatives; toutefois, cites facilitcront l’dcri- 
ture du programme. En effet.lorsquc les variables sont saisies (mode DEFLIST 
2), ellcs prcnncnt automatiqucmenl le bon sul'iixe h l'affichage. 

DEFBYT "numero,cx,cy,nb_coul" ddsigne dcs octets ; 

DEFBYT "fcnctnc" ddsigne des octets ; 

DEFWRD "a-z” ddsigne dcs mots (16 bits). 


Variables globules: 


cx| 

cyj 

nb_coul| 
1 & 
h& 
men$ 
c_a$ 
c c$ 


facteur de resolution horizontal ; 
factcur dc resolution vertical; 
nombre de couleurs ; 
calcul de la Iargeur dcs fenfitres ; 
calcul dc la hauteur des fenelres ; 
variable de menu; 
code ASCII; 
code clavier. 
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Procedure init menu 

Cette procedure initialise le menu. 

Variable locale : 

i| indice de boucle. 

Procedure ouvre fcnctre 

Cette procedure initialise les fenelres. 

Parametres : 


numero| 

numero de la fenetre ; 

x& 

abscisse de la fcnCtre ; 

y& 

ordonnee de la lenetre ; 

i& 

Iargeur de la fendtre ; 

h& 

hauteur de la fenCtrc. 
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Procedure resolution 

Cette procedure initialise les facteurs de resolution. 

Paninietres : 

cx'| factcur de resolution horizontal; 

cyj facteur de resolution vertical; 

nb_coul| nombre de couleurs. 

Procedure souris 

Cette procedure gfcrc un dvdncmcnt souris. 

Procedure touche 

Cette procedure gdre un dvdnement clavier, 

Procedure trailement 

Cette procedure gdre les dvdncments du menu ddroulant. 

Procedure fenetrel 

Cette procedure gdre les evenements relatifs a la fendtre numdro 1. 
Procedure fenetre2 

Cette procedure gdre les dvdnemcnts relatifs il la fcnctrc numdro 2. 
Procedure message 

Cette proeddurc gdre tous les dvdncments simultandment. 

Variables locales: 

index| indicc de l'dvdncment; 

(IS numdro de la fcndtrc. 

Procedure evenement 

Cette proeddure afllche la nature des dvdncments dans la fenetre numdro 3. 
Pa ram dt re : 

ev$ message de 1‘dvdnement. 

Procedure reduc_tableau 

Cette proeddure rdduil un tableau & la taillc rdcllcmcnt utilisde. 

Paramdtrcs : 

dimension^ dimension utile ; 

tableau$() tableau il rdduire. 

Variables locales : 

i& indice dc bouclc ; 

t_pro$() tableau de stockage provisoirc. 
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Programme : 


MENU ET FENETRE 


1 DEFBYT "numero,cx,cy,nb_coul" 

' DEFBYT "fenetre" 

’ DEFWRD "a- 2 " 

1 

resolution(cx|,cyI,nb_coulI) 

1&=MUL(160,cxI) 
h&-MUL(90,cyI) 
cuvre_fenetre(1, 0,19,1&,h&) 
cuvre fenetre(2,1& + 1,19,l£,h&) 

cuvre_fenetre(3,0,SUB(MUL(200,cy|),h&),MUL(1&,2),h&) 
TOPW #2 

PRINT AT(3,2);"bonjour" 

CIRCLE 30,25,20 
init_menu 
MENU men$() 

ON MENU GOSUB traitement 
ON MENU KEY GOSUB touche 

ON MENU IBCX l,0,19,l&,h& GOSUB fenetrel 
ON MENU IBOX 2,1&+1,19,l£,h& GOSUB fenetre2 
ON MENU BUTTON 1,1,1 GOSUB souris 
ON MENU MESSAGE GOSUB message 
DO 

ON MENU 
LOOP 
END 


' PROCEDURES ET FONCTIONS 

T _____________________________ 

PROCEDURE init_menu 
LOCAL i| 

DIM men$(50),etatI(50) 

i 1-0 

REPEAT 

READ men$(i|) 

INC i | 

UNTIL men$(i1-1)="*" 

DEC i | 
men$(iI)="" 

reduc_tableau(i|,men$()) 

DATA Bureau, Informations 
DATA- 
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DATA 1,2,3,4,5,6,"" 

DATA Fichier, Charger, Sauvegardcr, Fermer, Quitter,"" 
DATA * 

RETURN 

f 

PROCEDURE ouvre_fonetre(numerol,x6,y4,14,h4) 

OPENW tnumeroI,x4,y&,14, h&, 4X111111111111 
TITLEW inumero |, "fenetre "-!-CHR$ (48+numero I) 

RETURN 

I 

PROCEDURE resolution(VAR cx|,cy|,nb_coulI) 

SELECT (XBIOS(4)) 

CASE 0 
cx | =1 
cy | =1 

nb_coul|=16 
CASE 1 
cx | =2 
cy 1=1 

nb_coul|=4 
CASE 2 
cx | -2 
cy 1=2 

nb_coul|-2 
ENDSELECT 
RETURN 

T 

PROCEDURE souris 

evenement("souris") 

RETURN 

PROCEDURE touche 

C_a$=STR$(BYTE(MENU(14))) 

C_C$=STR$(BYTE(RORS(MENU(14),8))) 

evenement("touche, code ASCII : "+c_a$+" code_clavier 
"+c_c$) 

RETURN 

I 

PROCEDURE traitemer.t 
message 

evenement("option du menu : "tmcn$(MENU(0))) 

IF men$(MENU(0))=" Quitter" THEN 
CLOSE #1 
CLOSE #2 
CLOSE #3 
MENU KILL 
STOP 



ouvre_fenetre(1,0,19,l&,h&) 
cuvre_fenetre(2,1S+1,19,l&,h&> 

ouvre_fenetre(3,0,SUB(MUL(200,cyI),h&),MUL(ls,2),hS) 
MENU men$ () 

ELSE 

etat|(MENU(0)) =SUB(1, etat|<MENU<0))) 

MENU MENU(0),etatI(MENU(O)) 

END IF 
MENU OFF 

RETURN 

f 

PROCEDURE fenetrel 
IF fenetre|<>l THEN 
fenetre1=1 

evenement("souris dans la fenetre 1") 

END IF 

RETURN 

I 

PROCEDURE fenetre2 
IF fenetre|<>2 THEN 
fenetreI=2 

evenement("souris dans la fenetre 2") 

END IF 

RETURN 

t 

PROCEDURE message 
LOCAL index|,f$ 
index!=W INDEX(#MENU(4)) 
f$-CHR$(46+index|) 

SELECT MENU(1) 

CASE 10 

evenement("menu d6roulant") 

CASE 20 

evenement("rafraichissement de l'6cran") 

CASE 21 

window|“index| 

evenement("fenetre "+f$+" active") 

CASE 22 

evenement("fermeture de la fenetre "+£$) 

CASE 23 

evenement("taille maximale pour la fenetre "+£$) 

CASE 24 

evenement("bouton poussoir de la fenetre ”+f$) 

CASE 25 

evenement("d^placement du bouton poussoir horizontal de 

la fenetre M +f$) 

CASE 26 
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cvenement ("displacement du bouton poussoir vertical 
fenetre "+f$) 

CASE 27 

evcnement("modification dc la taille de la fenetre 
CASE 28 

evenement("displacement de la fenetre ”+f$) 
ENDSELECT 
RETURN 

1 

PROCEDURE eveneraent(ev$) 

TOPW #3 
PRINT ev$ 

TOPW #window| 

RETURN 

r 

PROCEDURE reduc_tableau(dimensions,VAR tableau?()) 
LOCAL i& 

DIM t_pro$(dimensions) 

FOR i&=0 TO dimensions 
t_pro$(i&)-tableau?(i&) 

NEXT i& 

SWAP t_pro$(),tableau?() 

ERASE t_pro$() 
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FICHIERS 


BGET 

INPUTS 

PUT 

BLOAD 

KILL 

RECALL 

BPUT 

LINE INPUT 

RECORD 

BSAVE 

LOC 

RELSEEK 

CLOSE 

LOF 

RSET 

EOF 

LSET 

SEEK 

EXIST 

NAME 

STORE 

FIELD 

OPEN 

TOUCH 

GET 

OUT 

WRITE 

LNP 

PRINT 


INPUT 

PRINT USING 



BGET [#In,adr,nb 

n,nb : expressions numdriques cnlidres ; 
adr: mot long. 

Cette instruction charge nb octets it l’adresse adr cn les lisant sur le canal n. 
Voir dgalement les instructions BPUT, BLOAD et BSAVE. 

BLOAD fichier[,adr] 

fichicr : expression alphanumdrique ; 

adr: mot long. 

Cette instruction charge le fichicr it l'adresse adr. Si ccllc-ci n'esl pas spdeifide, 
alors l’adresse indiqudc lore de la sauvegarde est utilisde. 

Voir dgalement les instructions BSAVE, RPUTct BGET. 

BPUT [#Jn,adr,nb 

n.nb : expressions numdriques entidres ; 
adr: mot long. 

Cette instruction envoic sur le canal n nb octets de la zone mdmoirc ddbutant 
it l'adresse adr. 

Voir dgalement les instructions BGET. BSAVE et BLOAD. 

BSAVE fichier,adr,n 

fichicr : expression alphanumdrique ; 

adr : mot long ; 

n : expression numdrique entidre. 

Cette instruction sauve, dans le fichicr indiqud, unc zone mdmoire de n octets 
it partir de l'adresse adr. 

Voir dgalement les instructions BLOAD, BPUT et BGET. 

CLOSE [[#]n] 

n : expression numdrique entidre. 

Cette instruction relerme le canal n, prdeddemment ouvert avec OPEN. Si le 
paramdlre n n'est pas spdcilid, tous les canaux ouverts sont refermds. 
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EOF([#]n) 

n : expression numdrique emigre. 

Cette fonction rcnvoicTRUE (-1) si l'on sc trouve it la fin du fichier ouvert sous 
le canal n et retoume FALSE (0) dans les autres cas. 

EXIST(fichier) 

ficliier: expression alphanumdrique. 

Cette instruction teste l'cxistcncc d'un fichicr (ou d’une categoric dc fichiers). 
Elle retoume TRUE (-1) si le fichier (ou les fichiers) existe, ou hien FALSE (0) 
si lc ficliier (ou les fichiers) n'cxislc pas. Toutcs les specifications suivanLes sont 
permiscs simultandment: 

- le nom de l'unild de disquetles (ou de disque dur); 

- le nom des fichiers. 

- un ? remplace une lettre quclconquc dans lc nom des fichiers, par 
exemple, EXIST("?ILI.LIB") teste l'existence de tous les fichiers dont lc nom 
commence par une lettre quclconquc et s'achdvc par 1LI.LIB (LILI.LIB et 
T1LI.LIB seraient pris en compte) ; 

- une * remplace une panic quclconquc dans lc nom des fichiers, par 
exemple, EXIST("ZO*.*") teste l’existence de tous les fichiers dont lc nom 
commence par ZO. 

FIELD L#]n,longucurl AS vuriablell,longueur! AS variable!,...] 

FIELD [#]n,longueur I AT(adrl),[longueur! AT(adr!)...] 
n,longueurl,longueur2... : expressions numdriques entiercs ; 
variable 1,variable!... : variables alphanumdriqtics ; 
adrl.adi!...: mots longs. 

Cette instruction possddc deux modalitds m ixables dans une mdme instruction : 

- la modalild AS ddfinil les champs de donndes d'un enregistrement du fichier 
ouven sous le numdro de canal n. Une scule definition cst pcmiisc. La somme 
des longueurs ne doit en aucun cas ddpasser la longueur totale d’un enregistre¬ 
ment (spdeifide lors de l'ouvcrturc du fichicr). En clair, prenons un exemple 
prdcis: 

FIELD #5,20 AS fichicr,62 AS adressc$,8 AS telephones 

divise la fiche en trois champs: le nom, l'adresse et le numdro dc tdldphonc. Les 

variables fichier, adresseS et telephones doivent dire affeetdes avec LSET ou 

RSET. 

- la modalild AS cst presque identique it FIELD AS. Les adresses (adrl, adr2...) 
sont des pointeurs sur des variables dont la longueurcorrcspond it ccllc indiqude 
(longucurl, longucur2...). Ainsi, les variables numdriques peuvent etre direc- 
tement intdgrdes dans un enregistrement. 


GET [#]n[,i] 

n,i : expressions numdriques entidrcs. 

Cette instmetion lit un enregistrement sur lc fichicr it accds direct ouvert sous 
le numdro de canal n. Lc paramdtne optionncl i correspond au numdro dc 
l'enregistrcmcnt dans le ficliier (compris enlrc 1 et le nombre d'enregistrc- 
ments). Si i cst manquant alors, I'cnrcgistremcnt suivant, pointd par LOC(#n)+1, 
est lu. 




INP(#n) 

n : expression numdrique entidne. 

Celle l'onction lit un oclcl du Uchier ouvert comme canal n. 


KILL fichier 

fichier: expression alphanumdriquc, 

Cette inslruction ddtruit 1c fichier considdrd. Toutes les specifications suivantes 
sont pcrmiscs simultandmcnt : 

- le nom de l’unitd dedisquettes (ou dc disque dur), parexcmplc, KILL A:ddruit 
ic premier dcs fichicrs dc 1'unild A ; 

- le nom dcs fichicrs : 

- un ? remplacc unc lellre quclconquc dans le nom dcs fichiers, par 
cxcmplc, KILL 7ILI.LTB ddtruit le premier dcs fichiers donllc nom commence 
parunelettrc quclconque ets'achdvc par ILI.LIB (si LIL1.LIB etTILI.LIB sont 
presents, seul LTLI.LIB serail ddtruit); 

- unc * remplacc unc partie quelconquc dans le nom dcs fichicrs, par 
exemple, KILL ZO*. * ddtruit le premier dcs fichiers dont le nom commence par 
ZO; 

- KILL utilise dgalement lc systdme de dossiers, par exemple, KILL 
"MossierlVlossier2Mossicr3\*.GFA" ddtruit lc premier fichier ayant pour 
suffixe .GFA du dossiers, contcnu dans le dossier2, lui-mcmc contenu dans lc 
dossierl du dossier principal (indiqud par\ qui doit prdedder tout nom de dos¬ 
sier). 

II est important dc noierque seul le premier fichier rdpondant aux specifications 
indiqudcs est ddtruit. 

LOC([#]n) 

n : expression numdrique entidre. 

Cette fonclion renvoic la valeur du pointcur du fichier ouvert comme canal n. 
LOF([#]n) 

n : expression numdrique entidre. 

Cette fonclion rctoumc la laille occupdc par le fichier ouvert comme canal n. 

LSET champ=cliaine 

champ : variable alphanumdriquc ; 

chaine : expression alphanumdrique. 

Cette instruction affecte la chaine & la variable champ en la justifiant & gauche. 
Si chaine a une longueur infdricurc it cclle de champ, la fin est compldlde de 
blancs. Si chaine a unc longueur supdricure it celle de champ, chaine est 
tronqude & droitc. La variable champ doit auparavant avoir did ddfinic, et elle 
gardera sa longueur initiale. LSET sert surtout avec FIELD, les donndcs 
numdriques doivent dtre converties avec MK1$, MKL$, MKSS, MKF$ ct 
MKDS avant leur affectation gr.lce & LSET. 
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NAME fichierO AS ficliierl 

fichierO,ficliierl : expressions alphanumdriqucs. 

Cette instruction rcnommc fichierO en lui donnant 1c nom ficliierl. Les 
specifications suivantes des noms dc fichiers sont pcrmises simultandmcnt: 

- le nom de I'unitd dc disqucttcs (ou de disque dur) qui doit dtrc idcntiquc pour 
les deux noms de fichiers ; 

- NAME utilise 1c SYStdmc dc dossiers : 

Par excmple : NAME "ANdossierINLILI" AS "Viossier2\TILI.DOC" transfdrc 
le Itchier "LILI" contenu dans lc dossicrl du dossier principal de I'uniuS A dans 
le dossicr2 du dossier principal de I'unitd A en lc rcnommant "T1LI.DOC". 
L'instruction RENAME cst idcntiquc & NAME. 

OPEN mode,[#]n,canair,longueur] 
mode,canal: expressions alphanumdriques ; 
njongueur : expressions numdriques entidres. 

Cette instruction ouvre un canal sous le numdro n (entre 0 ct 99): 

- lc canal peut dire un fichier accessible avee toutes les spdcificatiorts possibles 
des noms de fichiers. OPEN utilise dgalemenl le systdme dc dossiers. Par 
exemplc, OPEN "C:\dossierlVlossier2Vlossier3\DATA.DAT" ouvre le fichier 
"DATA.DAT" de l'unitd C du dossicr3, contenu dans le dossier2, lui-mdme 
contenu dans le dossierl du dossier principal (indiqud par\ qui doit prdedder 
tout nom de dossier). Les inodes d’accds sont les suivants: 

0 erdre un fichier en dcriturc ; 

I ouvre un fichier en lecture ; 

A autorise l’ajout de donndes d un fichier; 

U ouvre un fichier ddjd existant en lecture et en dcriturc ; 

R ouvre un fichier en accds direct. Dans ce cas, la longueurd’un enregistrement 
peut dtrc prdcisde, elle sera de 128 par ddfaut; 

- le canal peut dtrc dgalemenl: 

CON: pour la console ; 

LST: ou PRN: pour rimprimante ; 

AUX: pour I'intcrfacc sdrie ; 

MID: pour la sortie MIDI; 

VID: pour la console en mode "transparent" (les caractdrcs dc contrdles ne sont 
pas exdcutds); 

IKBD: pourl'accdsdirectauprocesseurduclavicr6301. Attentiondangereux ! 
Dans ces cas, le mode d'accds cst ignord et 1'on peut indiquer une chafnc vide. 
Par excmple, OPEN "R",#5,"agenda'\90 ouvre lc fichier "agenda" en accds 
direct et donne d chaque enregistrement ou fichc une longueur de 90 octets. 

OUT #n,nl[,n2..] 
n : expression numdrique entidre ; 
nl,n2...: octets. 

Cette fonction dcrit un ou plusicurs octets dans le fichier ouvert commc canal 
n. 


i 





PUT r#]n[,i] 

n,i: expressions numdriques emigres. 

Cette instruction dcrit un cnrcgistremenl surlc fichier d accds directouvert sous 
Ic numdro de canal n. Le paramdtre optionnel i correspond au numdro dc 
l'enregistnement dans le fichier(compris cnlre 1 et le nombrc d’enregistnements 
plus un). Si i est manquant, alors l'enregistnement esl placd en fin dc fichier. 

RECALL #n,tab,nbl,nb2 

n.nbl : expressions numdriques entidres; 

nb2 : variable mot long ; 

tab: tableau alphanumdrique. 

Cette instruction initialise un tableau alphanumdrique avec les nbl premiers 
dldmcnts du fichier ouvert commc canal n (nb=-l provoque le chargement du 
tableau tout enticr). Si le tableau ou Ic fichier sont irop petits, le chargement 
s’effectuc sans erreur : le plus petit impose le nombie de chaines de caractdres 
transfdrdes, ce dernier est renvoyd dans la variable nb2. 

RECORD #n,i 

n,i : expressions numdriques entidres. 

Cette instruction fixe le numdro du prochain enregistrement it trailer. 
RELSEEK [#]n,d 

n,d : expressions numdriques entidres. 

Cette instruction ddplacc le pointeur du fichier ouvert commc canal n de la 
valeur du ddplaccment d en octets spdcilid (le ddplaccmcnt peut 6tre ndgalil). 
Attention, on doit tester dans les limites du fichier! 

RSET champ=ehaine 

champ : variable alphanumdrique ; 

chaine : expression alphanumdrique. 

Cette instruction affccte la chaine d la variable champ en la justifiant d droitc. 
Si chaine a une longueur infdrieure d ccllc dc cliamp, le ddbut est compldtd dc 
blancs. Si chaine a une longueur supdricurc d ccllc de champ, chaine est 
tronqude d gauche. La variable champ doit auparavant avoir did ddfinie ct cllc 
gardera sa longueur initialc. RSET sett surtout avec FIELD, les donndes 
numdriques doivent dtre converties avec MK1S, MKL$, MKSS, MKF$ ct 
MKDS avant leur affectation grScc d RSET. 

SEEK l#]n,i 

n,i : expressions numdriques entidres. 

Cette instruction place le pointeur du fielder ouvert commc canal n sur le icme 
octet du fichier. Si i est ndgalif, le pointeur est placd sur le i e octets du fichier, 
mais en partant de la fin. Attention, on doit tester daas les limites du fichier! 
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STORE #n,tab,nb 

n,nb : expressions numdriques enlidrcs ; 
tab: tableau alphanumdrique. 

Cette instruction sauvegarde les nb premiers dldmcnts d'un tableau alphanumd- 
rique dans le fichicr ouvcit comme canal n. Les dldmcnts sont sdpards par CR/ 
LF. 

TOUCH [#]n 

n : expression numdrique enlidrc. 

Cette instruction acntalisc l'bcurc et la date du ficliicr ouvcit comme canal n. 

WRITE #n,expressionl f,(ou ^expression!...] 
expression!,expression!...: expressions ; 
n : expression numdrique entidrc. 

Cette instruction sauvegarde sur le ficliier sdqucnticl ouvert sous le numdro de 
canal n les donndes spdcifidcs. Les donndcs ainsi sauvegarddes seront rclucs 
corrcctcmcnt par l'instruction INPUT #n,listc_dc_variables. 

PRINT #n[,expression I (,(ou ; ou ’)expression2...] 
expression 1,expression!...: expressions ; 
n : expression numdrique entidre. 

Cette instruction dcrit des donndes sur le lichier sdqucnticl ouvett sous le 
numdro de canal, n faul cependant remarquer que toute la ligne dc donndcs 
transmisc par l'instruction PRINT #n sera rcluc d’un scul tenant par l’instruction 
INPUT #n. 

PRINT #n,USING format,expressionl[,(ou ;)expression2...] 
format: expression alphanumdrique ; 
expression!,expression!...: expressions ; 
n : expression numdrique entidre. 

Cette instruction transmet dcs donndcs dans un format donnd au lichier 
sdqucnticl ouvert sous le numdro de canal n. La ligne dc donndes transmise par 
l’instruction PRINT #n,USING sera relue d'un seul tenant par l'instruction 
INPUT #n. 

# remplacc un chiffrc ; 

. ddtcrminc la position du point ddcimal; 

+ oblige l'affichagc dcs signes 
— rdserve de la place pour un signe "—” dventuel; 

* tous les 0 cn tdtc dc chafne sont remplacds par des *; 

$$ affichc un $ en tdte de chaine ; 

, affiche la virgule dcs miliicrs ; 

AAAA format E+nn; 

AAAAA formal E+nnn; 

! seul le premier caractdre est affichd; 

& l’intdgralild dc la chafnc est affichde ; 

V\ affichc unc chafnc dont la longueur est dquivalcntc aux nombrc de points 

entre les deux sdparateurs plus ces deux demiers ; 
affiche le caractdre suivant. 




INPUT #n,varl[,var2„.] 
varl,var2...: variables ; 
n : expression numdrique emigre. 

Cette instruction permet delire des donndes surlc fichiersdquentiel ouvert sous 
Ie numdro dc canal n ct de les placer dans les variables indiqudcs (varl ,var2...). 

LINE INPUT #n,varl[,var2...J 
var1,var2...: variables alphanumdriques ; 
n : expression numdrique entidre. 

Cette instruction permet dc lire sur lc fichier sdquenticl ouvert sous le numdro 
dc canal n une ligne entidre jusqu'au retour chariot qui est le seul caracldre 
sdparatcur reconnu, autorisant ainsi les poncluations tcllcs que la virgule ou Ic 
point-virgulc qui ne sonl pas acccptds par l’instruction INPUT. 

INPUT$(m,#n) 

m,n : expressions numdriques entidres. 

Cette instruction retoume m caractdreslus d partir du fichicr sdquentiel ouvert 
sous lc numdro de canal n. 


REPERTOIRES 


CHDIR 

FGETDTA 

FSNEXT 

CHDRIVE 

FILES 

MKDIR 

DFREE 

FILESELECT 

RMDIR 

DIR 

FSETDTA 


DIR$ 

FSFIRST 


CHDIR dossier 



dossier: expression alphanumdrique. 



Cette instruction ddterminc lc dossier sous lequcl on ddsirc se placer. Lc chcmin 
permettant d’y accddcr doit 6trc indiqud de la manidrc suivante : CHDIR 
'Mossier l\dossier2Ndossicr3" on se place ainsi dans le dossier3, contcnu dans 
le dossier2, lui-mdme contenu dans lc dossicrl du dossicrprincipal (indiqud par 
\ qui doit prdedder tout nom dc dossier). 

CHDRIVE n 

n : expression numdrique entidre. 

Cette instruction spdeifie l'unitd de disquette (ou de disque dur) qui sera prise 
par ddfaut comme unitd courante. Le paramdtrc n varie entre 0 ct 15 (A d P). 

DFREE(n) 

n : expression numdrique entidre. 

Cette fonclion renvoic la place mdmoire disponiblc sur l'unitd n dc disquettes 
(ou dc disque dur). Le paramdtrc n varie entre 0 ct 15 (A il P). 
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DIR [fichier[TO destination]] 

fichier,destination : expressions alphanumdriques. 

Cette instruction listc lcs fichiers spdeifids. Toutcs les specifications suivantes 
sont permiscs simultandment: 

- le nom de l'unitd de disqueltes (ou do disque dur), par exemple, DIR A: lisle 
l'unitd A; 

- le nom des fichiers : 

- un ? rcmplacc unc lettre quclconquc dans le nom des fielders, par 
exemple, DIR 7ILI.LIB liste tous les fichiers dont le nom commence par une 
lettre quelconque et s'achdve par ILI.LIB (LILI.LIB et TILI.LIB scraicnt pris 
cn comptc); 

- une * remplace une panic quelconque dans le nom des fichiers, par 
exemple, DIR ZO*.* liste tous les fichiers dont le nom commenceparZO quelle 
que soit l’cxtcnsion du fichier; DIR utilise dgalcmcnt le systdme de dossiers, 
par exemple, DIR ”MossierlVlossiei2Vlossier3" liste le dossier3, contenu dans 
le dossietZ, lui-mdme contenu dansle dossicrl du dossier principal (indiqud par 
\ qui doit prdedder tout nom de dossier). 

- L'option TO destination pennet d'indiqucr un canal de sonic autre que l’dcran, 
LST: pour rimprimante, ou un nom de fichier pour la sauvegardc sur disque. 

DIR$(n) 

n : expression numdrique entidre, 

Cette fonction rcnvoic le dossier actif de l'unitd n. DIRS nctoumc 0 si l'on sc 
trouve sous le dossier principal. Le paramdlre n varic entre 0 et 15 (A & P). 

FGETDTAO 

Cette fonction renvoie l'adresse de la DTA. 

FILES [fichier[TO destination]] 
fichicr.dcstination : expressions alphanumdriques. 

Cette instruction liste les fichiers spdeifids tout comme DIR mais la taille, 
rheurc et la date de erdation sont indiqtidcs cn suppldmcnt, Toutcs lcs spdeifi- 
cations suivantes sont penalises simultandment: 

- le nom de l'unitd de disquettes (ou de disque dur), par exemple, FILES A listc 
l'unitd A ; 

- le nom des fichiers: 

- un ? remplace une lettre quclconquc dans le nom des fichiers, par 
exemple, FILES 71L1.L1B liste tous les fichiers dont le nom commence par une 
lettre quclconquc et s'achdvc par ILI.LIB (LILI.LIB et TILI.LIB scraicnt pris 
en compte); 

- une * remplace unc panic quelconque dans le nom des fichiers, par 
exemple, FILES ZO*.* liste tous lcs fichiers dont le nom commence par ZO ; 

- FILES utilise dgalement le systdme de dossiers, par exemple, FILES 
, ^dossierl^dossicrZxlossier3 , ' listc le dossicr3, contenu dans le dossier2, lui- 
mdme contenu dans le dossierl du dossier principal (indiqud par\ qui doit 
prdedder tout nom de dossier). 





- L'option, TO destination, permet d'indiqucr un canal de sortie autre que 
1 dcran, LST: pour I imprimantc, ou un nom dc ficliier pour la sauvegardc sur 
disque. 


FILESELECT chemin,fichier,selection 
chemin.ficliicr : expressions alphanumdriques ; 
selection : variable alphanumdrique. 

Cette instruction permet la sdlection dc fichiers gitlcc i une bofic de dialogue. 
I.c chemin suivit cst indiqud par "iichicrs" (la specification minimalc 'V.*" 
sdlectionnc tous les fichiers du dossier principal). Lc second fichicr 
(fichier_dcfaut) indique cclui pris par ddfaut el la variable selections contient 
au rctour le fichicr choisi. 

Par exemplc : FILESELECT "\GFA\*.GFA”,"DEMO.GFA",selection pro¬ 
pose™ de choisirpamii tous les fichiers du dossier GFA donlle suffixe cst .GFA 
(programmes GFA standards cn version 2.02) cclui qui sera placd dans la 
variable selection, et choisira DEMO .GFA par ddfaut. 

FSETDTA(adr) 
adr: mot long. 

Cette fonction fixe la DTA a Tadresse adr. La DTA prdsente la structure 
suivante : 
octets 

1 a 21 
22 

23 d 24 
25 it 26 
27 it 30 
31 it 44 


contenu 
rdscrvd ; 
allributs; 
heure; 
date; 
longueur; 
nom du fichicr. 

Les attribuls sont codds commc suit (le bit & 1 active la propridld): 
bit signification 

fichier protdgd en dcriturc ; 
fichicr cachd; 
fichier systdme; 
unitd disque; 
dossier; 
archivage. 


FSFIRST(critere,attribut) 
critere : expression alphanumdriquc ; 
attribut: expression numdrique entidne. 

Cette fonction recherche le premier fichier correspondant au critere indiqud. 
Tous les critdres suivants sont permis simultandmcnt: 

- Ic nom de l'unitd de disquettes (ou de disque dur) ; 

- lc nom dcs fichiers : 

- un ? rcmplace une lcllre quelconque dans Ic nom des fichicr; 

- une * remplacc une panic quelconque dans le nom dcs fichiers ; 

- le systdme de dossiers. 
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Cette fonclionrcnvoie une valeur booldcnnc qui inciique si la rechcrchc a rdussit 
(TRUE) ct initialise la variable attribut. 

FSNEXTO 

Cette fonction rechcrchc ie prochain lichicr qui coiTcspond au crilere spdeifid 
dans FSF1RST. Elle renvoie unc valcur booldenne qui indique si la recherche 
a rdussi (TRUE) et initialise la variable auribut. 

MKD1R dossier 

dossier: expression alphanuradrique. 

Cette instruction erdd un nouveau dossier, par cxcmplc, MKDIR 
"B:\dossicrlMossier2Mossicr3" erde sur le disque B, le dossicr3, contenu dans 
le dossier2 lui-tndme contenu dans le dossicrl du dossier principal (indiqud par 
\ qui doit prdedder tout nom dc dossier). 

RMD1R dossier 

dossier: expression alphanunidrique. 

Cette instruction ddtruit un dossier par cxcmplc, MKDIR 
"C:\dossicrlYlossicr2\dossier3" ddtruit sur le disque C le dossiers contenu dans 
le dossicr2 lui-meme contenu dans le dossierl du dossicrprincipal (indiqud par 
\qui doit prdedder tout, nom de dossier). Le dossiern'est ddtruit que s'il est vide 
de fichiers ou de sous-dossiers. 
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LE BIOS 

Le BIOS giirc Ics fonctions primaircs d'entrdes/soilics du systemc. Concrde- 
mcnt, ii regroupe I'ddilion 1 l'dcran et sur imprimante, lcs communications 
(export ct import) avec 1’intcrfacc sdrie RS-232C ct l’unild de disqucttc (ou 
disque dur). Lc code rendu de l’opdralion esl contcnu dans le registre DO. 
L'appcl s’cffcciue de la maniftre suivante : 

~BIOS(code,parl,par2...) 
ou bicn alors 

var=BIOS(code,parl,par2.„) 
var: variable numdrique entidre ; 
code : expression numdrique entidre ; 
parl,pai2...: mots longs ou mots. 

Celle 1'onction appclle la routine BIOS ddsignde par lc code operation, cn lui 
passant une liste de paramdtres qui sont, soitdes mois prdeddds par W: (pris par 
ddfaui), soit dcs mots longs prdeddds par L:. Toutc erreur dans le passage dcs 
paramdlres, portant sur leur valeur ou leur type (L: ou W:), peut cniramer un 
crash gdndral de la machine. Au rctour, la variable var contient la valeur de 
reiour ou lc code d'erreur, prdeddemment siockde dans DO. 

Void, maintenani, une liste exhaustive des fonctions BIOS : 

FONCTION 0 ($00) : GETMPB 

Commc son nom I’indiquc, GETMPB va chcrcher le MPB ( Memory Parame¬ 
ter Bloc, bloc mdmoire de paramdtre) el le place dans un bloc de 12 octets. Pour 
des raisonsque vous coinprcndrez aisdment, cctle 1‘onction est it prendre avec 
precaution si 1'on tient 1 ne pas mdlangcr les pointcurs qui servent it la geslion 
mdmoirc du GEMDOS. 

Voici comment sont organises ccs 12 octets : 

Octets 0 it 3 : MFL, c'cst-l-dire la mdmoirc libre, Memory Free List; 

Octets 4 17: MAL, c'est-l-dirc la mdmoire Memory Allocated List; 

Octet 8 1B : RP, c'est-l-dirc le pointeurdu descripteur de la mdmoire, Roving 
Pointer. 

Le descripteur de mdmoirc, MD, est composd de 16 octets sc divisant en 4 
adrcsscs. Voici la structure du descripteur de la mdmoirc : 

Odets 013: LINK, adresse du descripteur suivant; 

Octets 417: START, adresse de la mdmoirc libre ; 

Octets 8 1B : LENGHT, longueur de la mdmoire libre ; 

Octets C 1F : OWN, adresse de la page de base du processus appelant. 

En GFA Basic : 

BIOS(0,L:adr) 
adr: mot long. 

L’adrcssc des 12 octets du MPB est pointdc par adr. 
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FONCTION 1 ($01): BCONSTAT 

Cette fonction determine l’dtat d’un pdriphdriquc d’enlrdc. 11 cxislc deux dials : 
aclif cl inaclif. Cetic fonction rcnvoie done -1 ou 0 scion qu'il y ait un caractere 
en entrde ou non. Le pdriphdrique esl codd dans la variable dev de la manidrc 
suivanie : 

0 pourPRT: 1'imprimante; 

1 pour AUX: l'inicrfacc RS-232C ; 

2 pour CON: la console (dcran + clavier); 

3 pour MID: l'inicrfacc MIDI; 

4 pour IKBD: lc proccsscur clavier 6301 ; 

5 pour la sortie dcran. 

Attention, programmer le processeur clavier 6301 pcul s'avdrer dangcrcux 

En GFA Basic : 

BIOS(l,W:dev) 
dev : mot. 

dev esl le pdriphdriquc d'cntrdc. 

FONCTION 2 ($02) : BCONIN 

Cette fonction va chcrchcr un caracldrc sur lc pdriphdriquc d'entrde. Elle 
rcnvoie lc code du caractere. Le pdriphdrique esl codd dans la variable dev dc 
la manidre suivanie : 

0 pour PRT: 1'imprimante ; 

1 pour AUX: l’inicrfacc RS-232C ; 

2 pour CON: la console (dcran + clavier); 

3 pour MID: l'inicrfacc MIDI; 

4 pour IKBD: lc proccsscur clavier 6301 ; 

5 pour la sortie dcran. 

Attention, programmer lc proccsscur clavier 6301 peut s’avdrer dangcrcux 

En GFA Basic : 

BIOS(2,W:dev) 
dev : mot. 

dev esl le pdriphdriquc d'cntrdc. 

FONCTION 3 ($03): BCONOUT 

Celle fonction cnvoicun caractdrc sur lc pdriphdrique spdcilld par le paramdlre 
dev. Cc demier est codd de la manidrc suivanie : 

0 pourPRT: 1’imprimante: 

1 pour AUX: l’interface RS-232C ; 

2 pour CON: la console (dcran + clavier); 

3 pour MID: 1'intcrface MIDI; 

4 pour IKBD: le proccsscur clavier 6301 ; 

5 pour la sortie dcran. 

Attention, programmer le processeur clavier 6301 pcul s'avdrer dangcrcux 




En GFA Basic: 

BIOS(3,W:dev,W:code) 
dev,code: mots. 

Lc code ASCII du caractdrc cst contenu dans code, et dev est lc pdriphdrique. 
FONCTION 4 ($04): RWABS 

Cette fonction precede it l'dcriture ou la lecture d'un sccteur sur lc disque. Elle 
renvoie un code d’erreur si cettc manipulation est impossible ou se passe mal. 
La fonction ndeessite cinq paramdircs : 

la modalitd d'utilisation, est rcprdscntdc, ici par un drapeau flag (sur 16 bits): 
flag = 0 pour unc lecture simple ; 
flag = 1 pour une denture simple ; 

flag = 2 pour une lecture sans regarder si lc disque a did changd ; 

Hag = 3 pour unc dcrilurc sans regarder si le disque a dtd changd ; 

I'adrcsse adr du tableau ou l'on siockcra ct/ou lira les informations du disque; 
le nombre de secteurs ii lire ou dcrire, ill ; 

le numdro du sectcurd'ou ddbuterontles opdrations de lectures ou d’dcrilure, n2 ; 

le pdriphdrique, dev : 

dev = 0 pour le lcctcur de disqueites A ; 

dev = 1 pour lc lccteur de disquettes B ; 

dev = 2 pour le disque dur ou une de scs partitions. 

En GFA Basic: 

BIOS(4,W:flag,L:adr,W:nl,W:n2,W:dev) 
flag,nl,n2,dev : mots; 
adr: mot long. 

FONCTION 5 ($05) : SETEXEC 

Cette fonction lit ou modific un vecteur d'cxccplion du 68000. Cc dernier 

possdde 256 vcctcurs d’exception; 8 sonl ulilisds et codds sous Gem en 8 

vectcurs numdrotds ainsi : 

vecteur no $100 H I'adrcsse S400 ; 

vecteur no $101 it I'adrcsse $404 ; 

vecteur no $102 it I'adrcsse $408 ; 

vecteur no $103 i) l'adresse $40C ; 

vecteur no $104 a I'adrcsse $410; 

vecteur no $105 it I'adrcsse $414 ; 

vecteur no $106 it l’adresse $418 ; 

vecteur no $107 it I’adrcsse $41C. 

On passe deux paramdlres it cettc fonct ion, lc numdro du vecteur el l'adresse de 
la routine qui va sc substiluer au vecteur d'originc. Si celte adrcssc vaut -1,1a 
fonction sc conlente de fairc une lecture simple du vecteur d'exception spdeifid 
et de lc rcnvoycr. 

En GFA Basic: 

BIOS(5, W: n ,L :adr) 

n : mol; 

adr: mot long 

Le numdro du vecteur d'exception cst. n et adr reprdsente l'adresse. 
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FONCTION 6 ($06) : TICKCAL 

Cette fonction determine 1c temps dcould entre deux impulsions dc l'horlogc du 
systdme. Ce temps est exprimd en millisecondes. Le ST renvoie systdmatique- 
ment, 20 ms cc qui correspond il unc fndqucncc dc 50 Hz. 

En GFA Basic: 

BIOS(6) 

FONCTION 7 (S07): GETBPB 

La fonction retoume l'adresse mdmoire du descripteur de disque. Les informa¬ 
tions du BPB sont coddcs sur 16 bits commc suit: 
taillc dcs secteurs (512); 
nombre de secteurs par cluster (2); 
nombre de clusters (1024); 
taillc du rdpertoirc (7) ; 
taille de la FAT (5); 

numdno du sectcur dc la sccondc FAT (6); 
numdro du secteur du premier cluster (18); 

nombre de clusters de donndes sur la disquette (351 en SF et 711 en DF); 
drapeaux. 

Les indications entre parentheses correspondent aux disquettes simple et 

double face. Le pdriphdrique cst codd dc la man id re suivantc : 

dev = 0 pour le lcctcur dc disquettes A ; 

dev = 1 pour le lecteur de disquettes B ; 

dev = 2 pour le disque dur ou unc dc scs partitions. 

En GFA Basic: 

BI0S(7,W:dev) 
dev : mot. 

dev est le pdriphdrique. 

FONCTION 8 ($08): BCOSTAT 

La fonction regarde si le pdriphdrique cst prdt it reccvoir des donndes. II cxistc 
deux dtats: actif et inactif. Celle fonction renvoie done -1 ou 0 selon qu’il y a 
un caractdre en entrde ou non. Le pdriphdrique cst codd dans la variable dev dc 
la manidre suivantc: 

0 pourPRT: I'imprimanie; 

1 pour AUX: I'intcrfacc RS-232C ; 

2 pour CON: la console (dcran + clavier); 

3 pour MID: I'intcrfacc MIDI; 

4 pour IKBD: le processeur clavier 6301 ; 

5 pour la sortie dcran. 


En GFA Basic : 
B10S(8,W:dev) 
dev : mot long, 
dev est le pdriphdrique. 





FONCTION 9 ($09): MEDIACH 

Cette fonction determine si unc disqucLle a did enlcvd du lecteur de disquettes. 
n est bien dvident que si le pdriphdriquc csl un disque dur, la fonction rdpondra 
qu’il est impossible d'cnlcvcr une disquelte. 

0 = il s’agit d’une unitd fixe ; 

1 = la disquette a peut-dtre did changde ; 

2 = la disquette a did changdc. 

Le pdriphdriquc prendra l’une des valcurs suivanles : 

dev = 0 pour le lecteur dc disquettes A ; 

dev = 1 pour le lecteur de disquettes B ; 

dev = 2 pour le disque dur ou une de scs partitions. 

En GFA Basic: 

BIOS(9,W:dev) 
dev : mot long, 
dev est le pdriphdrique. 

FONCTION 10 (SOA) : DRVMAP 

Cette fonction ddtermine les unilds de masse qui sont nclidcs au ST. l'unitd A est 
reprdsentdc parlc bit 0, l'unitd B par le bit 1... Lorsque le bit est it 1, cela signific 
que l'unitd logique est conneclde. 

En GFA Basic: 

BIOS(IO) 

FONCTION 11 ($0B) : KBSHIFT 

Cette fonction ddieimine ou modific 1'dlat des touches spdcialcs : SHIFT, 
CONTROL, ALTERNATE, ALT+CLR/IIOME (bouton droit dc la souris), 
ALT+INS (bouton gauche de la souris) cl CAPS LOCK. On transmet it la 
fonction la modalitd d'utilisation. Si ce dernier est -1, la fonction KBSHIFT 
permet de lire l'dtat d'une touche. En revanche, si la modalitd est un nombre 
compris entre 0 et 255, la fonction fait comme si l'on appuyait sur les touches 
correspondant it la combinaison des bits. 

Le mode est un mot de 16 bits codd de la manidre suivantc : 

Bit 0 &X.1 touche SHIFT droite 

Bit 1 &X.1. touche SHIFT gauche 

Bit 2 &X.L. touche CONTROL 

Bit 3 &X....1... touche ALTERNATE 
Bit 4 &X...1.... touche CAPS LOCK 

Bit 5 &X..1.bouton droit dc la souris (ALT + CLR/HOME) 

Bit 6 &X.1.bouton gauche de la souris (ALT + INS) 

Bit 7 &X1.inutilisd 

Lorsqu'un bit est it 1, cela signific que la louche est enfonede. 

En GFA Basic: 

BI0S(11,Wanode) 
mode : mot. 

mode est le mol de 16 bits, ou -1 pour une lecture simple. 
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LES FONCTIONS DU BIOS ETENDU : XBIOS 

Lc XBIOS ddsigne 1'extension du BIOS. Cc sonl dcs fonctions compliant lc 
systeme Sexploitation afin d’avoir acces aux possibility spdciales de l'Atari 
ST. Lcs fonctions sont au nombre dc 40 (dc 0 A 27 on hexadecimal). L’appcl sc 
lait suivant les modality : 

~XBIOS(codc,parl ,par2...) 
ou bicn aid's 

var=XB10S(codt*,par 1 ,par2...) 
var: variable numdrique entidre; 
code : expression numdrique entidre ; 
pari ,par2... : mots longs ou mots. 

CeUe fonction appcllc la routine XBIOS ddsignde parlc code operation, en lui 
passant une lisle de purumetres qui sont soit des mots prdeddds par W: (pris par 
ddfaut), soit dcs mots longs prdeddds par L:. Toutc erreur dans lc passage des 
paramdlres, portant sur leur valcur ou leur type (L: ou W:), peut entrafner un 
crash gdndral dc la machine. Au relour, la variable var contienl la valeur de 
retour ou le code d’erreur, prdeddemment slockde dans DO. 

FONCTION 0 (S00) : INITMOUS 

Cette fonction initialise lc gestionnnaire de la souris. En fair, cllc pennet 
csscnticllcmcnl de ddloumer le pointeur pour qu’il pointc sur des routines dc 
geslion de la souris derites parl'ulilisateur. La souris cst gdrdc parlc processeur 
clavier; lc vccicur esi appeld par le Mouse Repo it du clavier. II faut envoyer 
comme paramdtre lc mode d'utilisation de la souris, puis deux mots longs 
contenant respectivcmcnt 1’adrcssc dc la routine qui sera appcldc parlc Mouse 
Report ct un pointeur vers le bloc de paramdtres. 

Mode d’utilisation : 

mode = 0 --> souris ddconnccldc ; 

mode = 1 —> souris conncctdc en mode relatif; 

mode = 2 --> souris conncclde en mode absolu ; 

mode = 3 —> inutilisd ; 

mode = 4 —> souris conncclde en mode clavier. 

Pointeur du bloc de parametres : 

octet 1 : souris en 0.0 en haul ou en has (0 ou 1); 

octet 2 : boutons de la souris actifs ; 

octet 3 : coordonndcs en x ; 

octet 4 : coordonndcs en y. 

D'autrcs octets ^informations peuvent computer ce bloc. 

En GFA Basic: 

XBIOS(0,W:mode,L:adrI,L:adr2) 
mode : mot; 
adr1,adr2 : mots longs. 

mode est le mode d'utilisation, adrl esi 1'adressc du bloc de paramdlres et adr2, 
l’adresse de la routine. 

Attention, cetle routine ddconnectc la geslion de la souris par GEM. 



FONCTION 1 ($01): SSBRK 

Celle fonction reserve de la place dans 1c haul de la mdmoine. II faul declarer 
lc nombre d’oetets H rdserver. Celle fonclion cst appcldc juste avantl’inilialisa- 
tion du systdme d’exploitation, lors du BOOT_ROOM. Rile sen lc plus souvent 
pour l'utilisation d'unc cartouche de mdmoire morlc (ROM). 

En GFA Basic: 
inutile. 

FONCTION 2 ($02): PHYSBAS 

Celte fonction renvoie 1'adressc physique de la mdmoire dcran, c’esi-A-dire lc 
ddbut de la RAM viddo gdrde par le Shifter viddo. 

L’adrcssc de la base est, scion la configuration, $78000 (520 ST), $F8000 
(1040) el S3F8000 (Mdga) 

En GFA Basic: 

XBIOS(2) 

FONCTION 3 ($03): LOGBAS 

Cette fonclion renvoie l’adiesse logique de la mdmoirc dcran, e’est-i-dire cellc 
sur laquelle on travailJc. Bicn souvent, XBIOS(2) cl XBIOS(3) ont la rndme 
valeur. 

En GFA Basic : 

XBIOS(3) 

FONCTION 4 ($04) : GETREZ 

Celle fonclion renvoie la rdsolulion de l'dcran acluellement employde. 

0 = Basse rdsolulion ; 

1 = Moyenne rdsolution ; 

2 = Haute rdsolution. 

En GFA Basic : 

XBIOS(4) 

FONCTION 5 (S05): SETSCREEN 

Cette fonction permet de changer de rdsolution. EUc fonctionne uniquement en 
basse et moyenne rdsolulion. Sous GEM, cela nc fonctionne pas, il faul done 
passer les parametres sur la pile avant l’appel & la routine VBL qui fera les mo¬ 
difications souhaitdes. Trois paramdtrcs soni ndcessaircs: les adresses logique 
et physique de l’dcran et la rdsolution. 

En GFA Basic : 

XBlOS(5,L:adrl,L:adr2,W:n) 
adrl,adr2 : mots longs ; 
n : mot. 

adrl et adr2 sont dcs mots longs correspondant ;i l’adresse logique et physique 
et n la rdsolulion souhaitde. 
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FONCTTON 6 ($06): SETPALETTE 

Cette fonction modifie tous les registres de couleurs composant la palette en unc 
sculc manipulation. On indiquc l'adrcssc dc 16 mots dc la nouvelle palette. 
Cette adrcsse doit dire impdralivemcnt paire. L'efret est immddiat, car elle est 
activde dds le VBL suivant. 

En GFA Basic: 

XBIOS(6,L:adr) 
adr: mot long. 

adr pointe sur le tableau des couleurs. 

FONCTION 7 ($07) : SETCOLOR 

La fonction 6 modifie tous les registres en unc sculc fois, la fonction 7 permet 
dc les modifier un par un. On introd uil lc numdro du rcgistre CO A15) et la couleur 
codde sous la forme $xxx oil les x correspondent aux taux de rouge, vert ct bleu 
(0(17). 

En GFA Basic: 

XBIOS(7,W:n,W:c) 
n,c : mots. 

n est le numdro du rcgistre et c, la couleur souhaitde. 

FONCTION 8 ($08) : FLOPRD 

Lecture sur un ou plusieurs secteurs d'une disquette. 

Voici les paramdtres dc la fonction : 

adr: adrcsse du tampon qui recevra le rdsultat de la lecture. Cette adrcsse doit 

dtrc impdrativement paire ; 

inu : inutilisd, le mettrc & 0 ; 

device : numdro du lecteur de disquetles A: 0 et B:; 

scctcur: numdro du premier sccteur a lire ; 

piste : numdro de la piste oil commence la lecture ; 

face : numdro de la face du disque (0 ou 1) ; 

n : nombrc dc secteurs a lire. 

En GFA Basic: 

XBIOS(8,L:adr,W:inu,W:device,W:secteur,W:piste,W:face,W:n) 
inu.device,secteur,piste,face.n : mots ; 
adr: mot long. 

FONCTION 9 ($09): FLOPWR 

Ecriturc surun ou plusieurs secteurs d'une disquette. 

Si Ton dcritsurle secteur BOOT (secteur 1, piste 0, face 0), lc systdme ddtcctcra 
un changement de mddia si une fonction RWABS ou MEDIACH est invoqude. 
Voici les paramdtres de la fonction : 

adr: adrcsse du tampon. Cette adrcsse doit dtre impdrativement paire ; 

inu : inutilisd, lc mettrc & 0 ; 

device : numdro du lecteur de disquettes A: 0 et B: 1 ; 




secteur: numdro du premier scctcur it dcrire ; 
piste : numdro dc la piste oil commence l'dcrilure ; 
face : numdro de la face du disque (0 ou 1); 
n : nombre dc scctcurs il dcrire. 

En GFA Basic: 

XBIOS(9,L:adr,VV:inu,W:device,\V:secteiir,W:piste,\V:face,W:n) 
inu,devicc,scctcur,piste,face,n : mots ; 
adr: mot long. 

FONCTION 10 ($0A): FLOPFMT 
Cette lonction fonnatc une disqucttc. 

Void les paramdtrcs dc la fonciion : 

adr: adressedu tampon d’au moins 8 Ko. Cette adressc doit dtre impdrativement 
paire ; 

inu : inutilisd, le mettre it 0 ; 

device : numdro du lecteur de disquettes A: 0 et B: 1 ; 

piste : numdro de la piste (0 it 79) ; 

face : numdro dc la face du disque (0 ou 1); 

fact: facteur d’entrelaccmcnt (1 en principe); 

magique : nombre inagique 87654321 (hcxaddcimal); 

valcur : cette valcur sera dcrile dans chaquc scctcur (SE5E5 gdndralcmcnt). 

En GFA Basic: 

XBIOS(10,L:adr,W:imi,W:de\’ice,W:piste,W:facx‘,VV:fact,L:inagique,W:valcur) 
inu,device,piste,face,fact,valcur: mots ; 
magique,adr : mots longs. 

FONCTION 11 ($0B) : inutilisde 

FONCTION 12 (SOC) : MIDIWS 

Cette fonction dcrit unc chaine de caractdncs sur lc port MIDI (MIDI 0 UT). On 
passe commc paramdtres un pointcur pointant sur la chaine caractdres et lc 
nombre de caractdrcs moins 1 que contient ccttc chaine. 

En GFA Basic: 

XBIOS(12,W:n,L:adr) 
adr: mot long ; 
n : mot. 

FONCTION 13 ($0D): MFPOINT 

Cette fonciion positionne le vecteur d'interruption interne (0 it 15) du MFP il unc 
adressc prdcise. On passe commc paramdtres l'adrcssc de la routine d'interrup¬ 
tion et lc numdro de l'interruption. 
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En GFA Basic: 

XBI0S(13,W:n,L:adr) 
adr: mol long ; 
n: mol. 

adr correspond ft 1'adresse de la routine d'intcrruplion el n au numdro de 
1'intcrruption. 


FONCTION 14 ($0E): JOREC 

Cette fonction foumit un poinleur vers un spdcificatcur de tampon d'un des 
pdriphdriques d’entrde suivants: 

0 pour lc RS-232C; 

1 pour le clavier ; 

2 pour I’intcrfacc MIDI IN ; 

Lc spdcilicateur renvoyd sc prdscnLc de la fayon suivantc : 

Octets 0 ft 3 : adresse du tampon ; 

Octets 4 el 5 : taille du tampon ; 

Octets 6 ct 7 : index dc ddbut (pnochainc position de traitement); 

Octet 8 et 9 : index de fin (si dgal ft 1'index de ddbut, le tampon cst vide); 
Octets A et B : marqueur de niveau infdrieur (autorisalion de poursuitc dc la 
transmission ou XON); 

Octets C ct D : marqueur de niveau supdricur (inhibition de poursuitc dc la 
transmission ou XOFF). 
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En GFA Basic : 

XBIOS(l4,VV:device) 
device : mot. 

device correspond au pdriphdrique en entrde. 

FONCTION 15 ($0F): RSCONF 

Cette fonction pennet dc configurer lc port RS-232C. 

En GFA Basic: 

XBIOS(15,W:vit,W:modc,W:ucr,\V:rsr,W:tsr, Wiser) 

vit,mode,ucr,rsr,tsr,scr: mots. 

vit est la vitesse de transmission en bauds : 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
A 
B 


19200 

9600 

4800 

3600 

2400 

2000 

1800 

1200 

600 

300 

200 


—> 

—> 

--> 

--> 

—> 

—> 

—> 

—> 

—> 

—> 

—> 

-> 150 


i 




C ~> 134 
D -> 110 
E ~> 75 
F ~> 50 

mode ddsigne lc inode dc comrfilc du Dux : 

0 -> pas de contrfile 

1 ~> XON/XOFF 

2 ~> RTS/CTS 

3 -> XON/XOFF ct RTS/CTS 

ucr correspond h la valcur du registre UCR du MFP ; 
rsr coirespond il la valcur du registre RSR du MFP ; 
tsr correspond il la valcur du registre TSR du MFP ; 
scr correspond & la valcur du registre SCR du MFP. 

FONCTION 16 ($10): KEYTBL 

Cette fonction posilionneles pointeurs vers les tables de iranscodage du clavier, 
ce qui permet de reorder un clavier. Les parametres sont les adresscs dcs 
nouvcllcs tables de iranscodage: table dcs touches normales, table dcs touches 
avee lc SHIFT pressd cl table avec le CAPSLOCK pressd. 

En GFA Basic: 

XBIOS(16,L:noshift,L:shift,L:caps) 
noshift,shift,caps: mots longs 
noshift est la table des touches nonnalcs ; 
shift est la table des touches avec le SHIFT ; 
caps est la table des touches avec lc CAPSLOCK. 

FONCTION 17 ($11): RANDOM 

Cette fonction renvoie un nombre pscudo-aldatoire. 

En GFA Basic : 

XBIOS(17) 

FONCTION 18 ($12): PROTOBT 

Construit unc image prototype du scctcur BOOT (secteur 1, piste 0, face 0) 
En GFA Basic : 

XBlOS(18,L:adr,L:nsr,W:typd,YV:exe) 
ad rats r: mots longs ; 
typd,cxe : mots. 

adr correspond il l'adresse d'un tampon de 512 octets; 
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nsr ddsigne 1c numdro de sdrie ; 

typd esi le type du disquc ou -1 si ce type ne doit pits 6trc modifid : 

0 --> 40 pistes simple lace ; 

1 --> 40 pistes double face; 

2 --> 80 pistes simple face ; 

3 --> 80 pistes double face; 

Seuls les types 2 ct 3 existent sur Atari ST. 

cxe esl un drapeau qui indique si l'cxdculion du bootsecteur doit sc faire : 

0 --> incxdcutablc; 

1 —> executable. 

FONCTION 19 ($13): FLOPVER 

Cette fonction vdrific un ou plusieurs sectcurs sur un disque. 

Voici les parametres de la fonction : 

adr : adrcssc du tampon. Cette adrcsse doit 6trc impdralivement pairc ; 

inu : inutilisd, le mettrc it 0 ; 

device : numdro du lecteurde disquettes A: 0 ct B: 1 ; 

sccteur : numdro du premier scctcur & verifier; 

piste : numdno de la piste ou commence la verification ; 

face : numdro de la face du disquc (0 ou 1); 

n : nombre de scctcurs & vdrifier. 

En GFA Basic : 

XBIOS(19,L:adr,W:inu,W:dcvice,W:secteur,W:piste,W:facc,W:n) 
inu,device,secteur,pistc,faccji: mots ; 
adr: mot long. 

FONCTION 20 ($14): SCRDMP 

Cette fonction cffcctuc une copie d’dcran sur imprimante. 

En GFA Basic: 

XBIOS(20) 

FONCTION 21 ($15): CURSCONF 
Cette fonction configure le curscur d’dcran. 

En GFA Basic: 

XBIOS(2I,W:code,W:n) 
codc^i: moLs. 

code indique une des fonctions suivantes : 

0 —> ddsactivation du curscur; 

1 —> activation du curscur; 

2 —> clignolcmcnt du curseur; 

3 —> fixation du curscur; 

4 —> calcul de la pdriode dc denotement du curseur avec n ; 

5 —> lecture de la pdriode de clignotcmcnt du curseur. 

n indique le nombre dc demi-cycles d’horloge (50, 60 ou 70Hz) entre chaquc 
clignotement du curseur. 


i 



FONCTION 22 ($16): SETTIME 
Cette fonction fixe l'licure cl la dale. 

En GFA Basic: 

XBIOS(22,L:time) 
time: mot long. 

time contient l'heure et la date au format DOS. 

FONCTION 23 ($17): GETTTME 
Cette fonction lit l'heure el la date. 

En GFA Basic : 

XBI0S(23) 

FONCTION 24 ($18): BIOSKEYS 

Cette fonction reinitialise les tables de conversion des touches du clavier. 

En GFA Basic : 

XBI0S(24) 

FONCTION 25 ($19) : IKDWS 

Cette fonction permet 1'dcritunc d'une chafnc dc caracldres sur le contrfileur 
intelligent clavier. On transmet en paramdtre le nombre d'oetets & dcrirc ainsi 
que l'adresse de la chafnc. 

En GFA Basic : 

XBIOS(25,W:n,L:adr) 

n: mol; 

adr: mot long. 

n ddsigne le nombre d'oetets (n-1) tl dcrirc, et adr un mot long correspondanl il 
l'adresse de la chafnc it cnvoycr. 

FONCTION 26 ($1 A): JDISINT 

Cette fonction empeche la validation d’une interruption dcMFP 68901. Le seul 
paramdtre correspond au numdro de rinlerruption. 

En GFA Basic : 

XBIOS(26,VV:n) 
n: mot. 

n cst unc interruption comprise entre 0 et 15. 

FONCTION 27 ($1B) : JENABINT 

Celle fonction autorisc la validation d’une interruption du MFP 68901. Le seul 
paramdtre correspond au numdro dc 1'interruption. 

En GFA Basic : 

XBIOS(27,\V:n) 
n : mot. 

n est une interruption comprise entre 0 et 15. 
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FONCTION 28 ($1C): GIACCESS 

Cette fonction permet F denture ou la lecture d'un registrc du gdndrateur sonore. 
II existc 1 6 registres notds dc 0 il 15. On passe comme paramdtrc un octet 
contenanl la donnde b dcrire, suivi du numdro du registrc du PSG. Le bit 7 de 
ce mot conticndra 0 pour unc lecture et I pour une dcriturc. 

En GFA Basic : 

XBIOS(28,W :code,W:n) 
code,n: mots. 

code cst la donnde & dcrire cl n le numdro du registrc it lire ou dcrire (bit 7 dc 
n rcspcctivemcnt b 0 ou 1). 

FONCTION 29 (SID): OFFGIB1T 

Cette fonction positionne a 0 un bit du pon A du PSG. Lc pa ram c ire est le 
numdro du bit b modifier. 

En GFA Basic: 

XBIOS(29,W:n) 
n: mot. 

n est le numdro du bit ^ modifier. 

FONCTION 30 ($1E) : ONGIBIT 

La fonction positionne it 1 un bit du port A du PSG. Le parametre cst lc numdro 
du bit £1 modifier. 

En GFA Basic: 

XB10S(30,YV:n) 
n: mot. 

n est lc numdro du bit it modifier. 


FONCTION 31 ($IF): XBTIMER 

Cette fonction positionne un TIMER du MFP 68901. 

En GFA Basic: 

XBIOS(31,W:n,W:control,W:code,L:adr) 
n,control,code : mots ; 
adr: mot long. 

n ddsigne le numdro du TIMER (0-3) b modifier : 

0 --> TIMER A ; 

1 --> TIMER B ; 

2 ~> TIMER C ; 

3 --> TIMER D. 

control cst la valcur placde dans le registre CONTROL du TIMER, 
code est la valcur qui sera inscritc dans lc registrc dc domides. 
adr cst un pointcur vers le vecteur d'interruption. 




FONCTTON 32 ($20) : DOSOUND 

Celle fonclion positionne le compteur sonore sur une tabic. 

II faut passer cn paramdtrc un mol long qui poinie sur l’adresse de la table de 
commande 0a commandc ct 1'argumcnt forment un mot ou un mot long) pour 
lc comptcur sonore. 

Structure de la table : 

Valcur $00 it SOF : indique un numdro de regislre, la valeur qui suit ce nombre 
cst it dcrirc dans lc registre ; 

Valeur $80: registre temporaire, la valcur qui suit cc nombre estderite dans lc 
registre temporaire ; 

Valeur $81 : les trois octets qui suivent. cc nombre sont traitds de la fafon 
suivanic : lc premier indique lc numdro du registre, lc deuxidme est la valeur a 
ajouter au registre temporaire en compldmcnt it deux, lc troisidme cst la valcur 
lerminale. Le regislre temporaire eslchargd dans le registre ddlini parle premier 
octet, 1'opdration cst rccommcncdc jusqu’it cc que lc regislre temporaire alleigne 
la valeur indiqude par le traisidme octet; 

Valcur $82 d $FF: 1'octct qui suit indique lc temps it attendre avant la prochaine 
mise it jour. Si cette valeur vaut 0, la gdndration sonore est achcvdc. 

En GEA Basic : 

XBIOS(32,L:adr) 
adr: mot long. 

adr cst 1'adrcssc du tampon qui coniicnt la musique it jouer. 


FONCTION 33 ($21) : SETPRT 

Cette fonction permet d’indiqucr le type de rimprimanle ulilisde : 
Bit 0 : (0) matriciclle ; (1) marguerite (DAISY) 


Bit 1 : (0) couleur; 
Bit 2 : (0) ATARI; 
Bit 3 : (0) DRAFT ; 
Bit 4 : (0) paralldle ; 
Bit 5 : (0) continu ; 


(1) monochrome 
(1) EPSON 
(1) TEXTE (courrier) 

(1) sdrie 

(1) feuiile it fcuillc 
Bit 6 it bit 14 : rdservd i la configuration des imprimantes 
Bit 15 : mis it 0; 

Si le mot vaut -1 ($FFFF), la fonction renvoie 1'ancienne configuration. 


En GFA Basic: 

XBlOS(33,code) 
code : mot. 

code cst un mot coircspondant it la configuration d'imprimante prdcddemenl 
ddcrile. 


FONCTION 34 ($22): KBDVBASE 

Cette fonction renvoie lc pointcur de la table de structure de paramdtres du 
geslionnaire intellingent clavier. 

Voici la struturc du tableau dcs vccteurs d'interruplion : 

Octets 0 it 3 : adresse d'une routine d'entrdc MIDI; 
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Octets 4 & 7 : adresse de traitement d'une erreur clavier; 

Octets 8 & B : adrcssc dc traitement d'une erreur MIDI; 

Octets C i\ F : adresse du gestionnaire d'etat clavier; 

Octets 10 it 13 : adrcssc du gestionnaire d'etat souris ; 

Octets 14 a 17 : adrcssc du gestionnaire d'etat horloge; 

Octets 18 & IB : adresse du gestionnaire d'etat du joystick. 

En GFA Basic: 

XBIOS(34) 

FONCTION 35 ($23): KBRATE 

Cette fonction determine la vitesse de repetition des touches du clavier. Deux 
param6trcs sont passes par la pile, 1c ddlai initial avanlla repetition, ct la vitesse 
de repetition en 1/50 de seconde. Si l'un des param6trcs cstnul, la vitesse n'est 
pas modifidc. On prend surla pile l’anciennc valour ou la valeur actuelle si l'un 
des parametrcs est nul. La vitesse sc calculc ainsi: DELAI*256+REP. 

En GFA Basic: 

XB10S(35,YV:ddai,YV:t) 
dclai.t: mots. 

dclai ddsigne lc ddlai initial avant l'auto repetition et REF la vitesse de 
rtSpdtition. 

FONCTION 36 ($24) : PTRBLK 

Cette fonction configure l’dcran pour la copic d'dcran sur l'imprimante. 

Le tableau de param&tres a la structure suivante : 

blkprt: adrcssc dc la mdmoirc viddo ; 

offset: displacement; 

width : largcur; 

height: hauteur; 

left : pixel gauche; 

rigth : pixel droit; 

serres : resolution dc l'dcran (0-2); 

= 0 basse resolution ; 

= 1 moyenne resolution ; 

= 2 haute resolution ; 

dstres : qualite d'imprcssion (0-1); 

= 0 epreuve; 

= 1 deiinitif; 

colpal : pointcur de la palette dc coulcurs ; 
typimp : type de l'imprimante (0-3) ; 

= 0 matricicllc 1280 pixels par ligne ; 

= 1 matricielle couleur ; 

= 2 imprimantc Atari; 

= 3 matricielle 960 pixels par ligne ; 
port : port utilise ; 

= 0 parallde; 

= 1 sdrie RS 232C ; 

masks : tabic dc conversion des coulcurs. 



En GFA Basic : 

XBIOS(36,L:adr) 
adr: mot long. 

adr est l'adresse de la tabic dcs parambtrcs. 

FONCTION 37 ($25) : VSYNC 

Cette fonction permet d'attendrc la prochainc interruption de tramc pour 
synchroniser l'image avec le balayage de I'dcran. 

En GFA Basic: 

XBIOS(37) 

FONCTION 38 ($26) : SUPEREX 

Cette fonction permet d'exdcuter en mode supcrviscur une routine en langagc 
machine logdc it l'adresse passde par la pile. 

En GFA Basic: 

XBIOS(38,adr) 
adr: mot long. 

adr est l’adresse de la routine en langage machine. 

FONCTION 39 ($27): PUNTAES 

Cette fonction ddsactivc l'AES lorsque celui-ci n'est pas en ROM dans lc cas 
d'un fichicr TOS.1MG. Cette fonction precede it un RESET machine. 

En GFA Basic: 

XBIOS(39) 


i 
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LE GEMDOS 


Lc GEMDOS ressemble beaucoup au MS-DOS, le systdmc Sexploitation ties 
PC, it la seule difference que les paramdtrcs sont passes parla pile et non par les 
rcgistrcs comme en MS-DOS. L'appcl au GEMDOS se fait au moyen d'une in¬ 
terruption TRAP (TRAP #1). Tout comme lc RIOS et lc XBIOS, le registre DO, 
du 68000, conLient aprcs I'cxdculion de la routine, lc paramdire de retour. Lc 
registre AO conlicnl le numdro dc la fonction appelde (inexploitablc sauf avec 
les iastructions d'interfa^age RCALL, C:, CALL...). Voici comment appclcr 
une fonction GEMDOS (Graphic Environment Manager System Disk. Opera¬ 
ting System) en GFA Basic : 


~GEMDOS(code,purI,par2...) 
ou bien alors 

var=GEMDOS(code,parI,par2.„) 
var : variable numdrique entidre ; 
code : expression numdrique entidre ; 
parl,par2... : mots longs ou mots. 

Cette fonction appcllc la routine GEMDOS ddsigndc parlc code operation, en 
lui passant unc listc de paramdtrcs qui sont, soil des mots prdeddds par W: (pris 
par ddfaut), soit des mots longs prdeddds parL:. Toute erreurdans le passage 
des paramdtrcs, portant sur leur valeur ou leur type (L: ou W:), petit cntrainer 
un crash gdndral dc la machine. Au retour, la variable var coniient la valeur de 
retour ou le code d'erreur, prdeddemment stockde dans DO. 


FONCTION 0 ($00) : PTERM 

Cette fonction lerminc le processus appeld en corns ct rcloume au processus 
appelant avee un code de relour 0. 


En Basic GFA 
Inutilisable. 


FONCTION 1 ($01): CCONIN 

Cette fonction permet la lecture d’urt car acid re cn provenance du pdriphdriquc 
standard d’entrde avec dcho (dcriture) sur lc pdripbdrique standard de sortie. Le 
registre DO contient lc caractdre lu codd de la fagon suivante: 

Bits 31-24: $00; 

BiLs 23-16 : code ou $00 ; 

Bits 15-8 : $00; 

Bits 7-0 : code ASCII du caractdre lu. 

Si le pdriphdriquc d'cnlrde est compatible avee Gem VD1 le code des bits 23- 
16 sera le code de la touche enfonede. 


En Basic GFA 
GEMDOS(l) 




FONCTION 2 ($02): CCONOUT 

Cette fonction pennet 1'dcriLure d'un caractere sur 1c pdriphdriquc standard de 
sortie. Le caractdrc it dcrirc cst mis sur la pile dans l'octet le moins significatif 
d'un mot dc 16 bits, la parlie haute dtant i 0. Cette fonction transformc le TAB 
en une suite d'cspaccs ct teste CTRL-S (arret defilement), CTRL-Q (reprise de¬ 
filement) el CTRL-C (arret de l'opdration cn cours). 

En Basic GFA : 

GEMDOS(2,W rcode) 
code : mot. 

Le paramdlre code est le code ASCII du caractdrc it cnvoycr. 

FONCTION 3 ($03) : CAUXIN 

Cette fonction cst idenlique it CCONIN pour un periphdrique auxiliairc: le port 
sdrie. Cette instruction n'est pas this fiablc. 

En Basic GFA : 

GEMDOS(3) 

FONCTION 4 ($04): CAUXOUT 

Cette fonction est idenlique it CCONOUT pour un peripherique auxiliairc : le 
port sdrie. 

En Basic GFA : 

GEMDOS(4, W:code) 
code: mot. 

Le paramdtre code est le code ASCII du caractdrc it cnvoycr. 

FONCTION 5 ($05): CPRNOUT 

Cette fonction dcril un caracldre sur le port paralldlc, e'est-ii-dire sur l'impri- 
mante. 

En Basic GFA : 

GEMDOS(5,W:code) 
code : mot. 

Le paramdtre code cst le code ASCII du caractdrc it envoyer. 

FONCTION 6 ($06) : CKAVVIO 

Cette fonction dcrit ou lit sur la console. Un paramdlre (mot de 16 bits) ddfinit 
le sens, soil S00FF pour une lecture, soit different dc S00FF pour un alfichage 
du caractdre. 

En Basic GFA : 

GEMDOS(6,W:code) 
code : mot. 

Lc paramlitre code est le code i envoyer. 
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FONCTION 7 ($07) : CRAWIN 

Cette fonction permet la lecture d'un caracldre sur le clavier sans produire 
d’dcho sur le pdriphdriquc dc sonic. Cette fonction nc teste pas les codes de 
contrflle. 

En Basic GFA: 

GEMDOS(7) 

FONCTION 8 ($08): CNECIN 

Cette fonction pennet la lecture d'un caractdrc surlc clavier. Cette fonction teste 
les codes de contrdle. 


En Basic GFA: 

GEMDOS(8) 

FONCTION 9 ($09): CCONWS 

Cette fonction dcrit une suite dc caractdres lerminde par un octet nul sur le 
pdriphdrique standard. 


En Basic GFA : 

GEMDOS(9,L:adr) 
adr: mol long. 

adr est l'adrcssc dc la chainc dc caractdres. 
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FONCTION 10 ($0A): CCONRS 

Cette fonction lit une suite de caractdres. Tous les codes de contrfile sont testds. 
Avant l'appcl, le tampom doit contcnir le nombre dc caractdres it lire dans son 
premier octet. Aprds l’appel, le tampon possdde le format ci-dessous : 

Octet 0 : nombre dc caractdres & lire, $0D non inclus ; 

Octet 1 : nombre de caractdres regus ; 

Octet 2 : premier caractdrc rcgu ; 

Octet n : dernier caractdrc rcgu, SOD non inclus. 


o 

V) 

CD 

CD 

CD 

3 


En Basic GFA: 
GEMDOS(10,L:adr) 
adr: mol long. 

adr est l'adrcssc du tampon initialisd. 


o 

co 


FONCTION 11 (SOB) : CCONIS 

Cette fonction determine si un caractdrc est en attente sur le pdriphdriquc 
d'entrde standard. Le registre prendra soil la valeur $0000 s'il n'y a pas de 
caractdrc en attente, soit SFFFF. 


En Basic GFA : 
GEMDOS(ll) 


i 



FONCTIONS 12-13 ($0B-$0C): non utilises 


FONCTION 14 ($0E) : DSERTDRV 

Cette fonction determine le disque qui esl utilise par ddfaut. 11 est choisi entre 
les unites A (valcur 0) et P (valeur 15). Au rctour, 1c registre DO conticnt la carte 
dcs unites actives (bit & 1) dans son mol de poids faiblc. La carte se prdsente 
commc suit: 

Bit 0: 0 ou 1 pour disque A ; 

Bit 1 : 0 ou 1 pour disque B ; 

Bit 2 : 0 ou 1 pour disque C ; 

Bit 15 : 0 ou 1 pour disque P. 

En Basic GFA: 

GEMDOS(14,W:n) 
n : expression numdrique emigre. 

Lc paramdtre n correspond it l'unitd choisie. 

FONCTION 15 ($0F) : non utilisle 

FONCTION 16 ($10): CCONOS 

Cette fonction teste l'dtal du peripherique de sortie standard afin dc determiner 
s'il esl pr£t & rcccvoir un caractdre. EUc admet lc CTRL-C. Le registre DO 
conticnt, soil S00FF si le peripherique esl pr6l, soil $0000 dans lc cas contraire. 

En Basic GFA : 

GEMDOS(16) 

FONCTION 17 ($11): CPRNOS 

Cette fonction teste l'dtat du port paralldlc, ailn de determiner s’il cst pret & 
rcccvoir un caractfcre. Le registre DO contient soit $00FF si lc peripherique est 
pr£t, soit $0000 dans le cas contraire. 

En Basic GFA : 

GEMDOS(17) 

FONCTION 18 ($12) : CAUXIS 

Cenc fonction teste retat du port serie alin de determiner s'il esl prSl & envoycr 
un caractdrc. Le registre DO contient soit $00FF si le peripherique est prSt.soit 
$0000 dans le cas contraire. 

En Basic GFA : 

GEMDOS(18) 

FONCTION 19 ($13) : CAUXOS 

Cette fonction teste retat du port serie afin dc determiner s’il est prdt & rcccvoir 
un caractiirc. Le registre DO conticnt, soil $00FF si le peripherique est pret, soit 
$0000 dans le cas contraire. 
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En Basic GFA : 

GEMD0S(19) 

FONCTIONS 20-24 (S14-S18): non utilises 
FONCTION 25 ($19): DGETDRIVE 

Cette fonction renvoie l'unitd tie disque couranie : 0 pour A.15 pour P. 

En Basic GFA : 

GEMDOS(25) 

FONCTION 26 ($IA) : FSETDTA 

Cette fonction positionncradrcsscd’unc table DTA (Disk Transfer Adicss). S'il 
n’y a pas de DTA positionnde, GEMDOS utilise la DTA par ddfaut silude it 
l’adresse relative $80 par rapport it la page dc base (BASF.PAGE+128). 

En Basic GFA : 

GEMDOS(26,L:adr) 
adr: mot long. 

adr cst 1'adresse de la table DTA. 

FONCTIONS 27-31 ($1B-$1F) : non utilises 
FONCTION 32 ($20) : SUPERVISOR 

Cette fonction permet Ic passage du mode utilisateur en mode supervisee ct 
vice versa. Cette fonction permet d’accdder it des variables systdme ou des 
pdriphdriqucs uniquement disponiblcs en mode supcrviscur. 

Nous ne la citons que par souci d'exhaustivitd, carelle cst inutilisable en GFA 
Basic. 

FONCTIONS 33-41 ($2I-$29) : non utilises 
FONCTION 42 ($2A): TGETDATE 

Cette fonction lit la date interne, Le registre DO.W conLienL la dale codde de la 
lagon suivante : 

Bits 04 : jour (1-31); 

Bits 5-8 : mois (1-12); 

Bits 9-F : annde (0-119 que l'on ajoute it 1980). 

En Basic GFA : 

GEMDOS(42) 

lit DATE$, la date cst renvoyde comme suit: 
date = (annde-1980)*512+mois’*‘32+jour 


I 



FONCTION 43 ($2B): TSETDATE 

Cette fonction fixe la date interne. On passe un mot de 16 bits codd dc la fagon 
suivante: 

Bits 0-4 : jour (1-31); 

Bits 5-8 : mois (1-12); 

Bits 9-F : annde (0-119 que I'on ajoute it 1980). 

En Basic GEA : 

GEMDOS(43,YV:date) 
date: mot 

lc paramdtre date indique la date coddc comme suit: 
date = (anndc-1980)*5l2+mois*32+jour 

FONCTION 44 ($2C) : TGETTIME 

Cette fonction lit l'heure interne. Le registre DO.W contient coddc de la fayon 
suivante : 

Bits 0-4 : secondes par pas dc 2 ; 

Bits 5-A : minutes (0-59); 

Bits B-F : heures (0-23). 

En Basic GFA : 

GEMDOS(44) 

lit TIMES, l'heure est renvoyde comme suit: 
lime = heure*2048+minutc*32+scconde/2 

II l'aut multiplier par deux la valeur contenue dans les bits 0 it 4 pour obtenir le 
nombre correct de secondes. 

FONCTION 45 ($2D) : TSETTIME 

Cette fonction fixe l'heure interne. On passe un mot dc 16 bits oodd dc la fagon 
suivante : 

Bits 0-4 : secondes par pas dc 2 ; 

Bits 5-A : minutes (0-59); 

Bits B-F : heures (0-23). 

En Basic GFA : 

GEMDOS(45,W:time) 
time: mot. 

time contient l’heure coddc comme suit: 
time = hcurc*2048+minute*32+secondc/2 

11 faut diviser par deux lc nombre correct de secondes pour obtenir la valeur il 
mettre dans les bits 0 it 4. 

FONCTION 46 ($2E): non utilisde 

FONCTION 47 ($2F) : FGETDTA 

Cette fonction rctoumc 1'adrcsse de la table DTA courantc. 

Trds pratique pour les fonctions 78 et 79, FSFIRST et FSNEXT. 




Bios, Xbios et Gemdos 


242 


En Basic GFA: 

GEMDOS(47) 

FONCTION 48 ($30): SVERSION 

Cette fonction rcnvoie lc numdro dc version du systdme d'exploitation. 

En Basic GFA: 

GEMDOS(48) 

FONCTION 49 ($31): PTERMRES 

Cette fonction achdve le processus en cours et ne relSche pas la mdmoire 
aflectde par le processus. Le nombre d'oetets d vcnouillcr cst passd commc 
paramdtre dc la fonction. A ne pasutiliser pour des raisons de compatibility avec 
les diffdrentes versions du TOS, le GFA Basic risque de se bloquer. 

En Basic GFA: 

Inulilisable. 

FONCTIONS 50-53 ($32-$35): non utilisdes 
FONCTION 54 ($36) : DFREE 

Cette fonction determine l'espace disponible sur un disque. On passe commc 
paramdtre l'adrcssc du tampon qui recevra les informations concemant l’espace 
disponible et le numdro de 1'unild de disque (0 unitd couranlc, 1 disque A, etc.) 
L'information sur l’espace libre est foumie sous la forme de 16 octets ddfinis 
comme suit: 

Octets 0-3 : nombre d'oetets disponiblcs sur Ic disque ; 

Octets 4-7 : nombre de clusters disponibles ; 

Octets 8-B : nombre d'oetets par sectcur; 

Octets C-F : nombre de secteurs par cluster. 

En Basic GFA: 

GEMDOS(54,L:adr,W:n) 
adr: mot long ; 

n : expression numdrique entidrc. 

adr est l'adresse du tampon el la variable n cst le numdro de l’unitd dc disque. 
FONCTIONS 55-56 (S37-S38) : non utilises 
FONCTION 57 ($39): DCREATE 

Cette fonction erde un sous-rdpertoire, e'est-it-dire un dossier. Le nom du 
chemin d’accds est contenu dans unc chainc dc caractdres terminde par $00 it 
l'adresse adr. 

En Basic GFA : 

GEMDOS(57,L:adr) 
adr: mot long. 

adr est l’adresse de la chalne de caracldres ddierminant le chemin d’accds. 
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FONCTION 58 ($3A) : DDELETE 

Celle fonction ddtruil un sous-rdpertoire, e'est-d-dirc un dossier. Le nom du 
chemin d’accds est contenu dans une chafne dc caracldres termindc par $00 d 
l'adresse adr. 

En Basic GFA : 

GEMDOS(58,L:adr) 
adr: mot long. 

adr cst l'adresse de la chafne de caracldres determinant le chemin d’accds. 
FONCTION 59 ($3B) : DSETPATH 

Ccltc fonclion permet dc se posilionner dans un sous-rdpertoirc, e’est-d-dire 
dans un dossier. Le nom du chemin d'accds est contcnu dams une chafnc dc 
caracldres terminde par $00 d l’adresse adr. 

En Basic GFA: 

GEMDOS(59,L:adr) 
adr: mot long; 

adr est l'adresse dc la chafne de caracldres determinant le chemin d’accds. 
FONCTION 60 ($3C) : FCREATE 

Cette fonclion erde un ficliier. Si le fichicr exisie ddjd, la fonclion retoumc un 
code d'errcur. 

Le nom du chemin d’accds est contcnu dans une chafnc dc caracidres tennindc 
par $00 d l'adresse adr. 

Les altributs du ficliiers sont aussi passds comme paramdlres. 

00 = fichier en READ ONLY, lecture sculc ; 

01 = fichicr cachd, HIDDEN ; 

04 = fichier systdme cachd ; 

08 = dcscripleur de volume, e'est-d-dirc endation d’un dossier. 

En Basic GFA: 

GEMDOS(60,L:adr,W:attribut) 
adr : mot long ; 
attribut: mot. 

adr esl l'adresse du tampon et le mot attribut reprdsentc l'attribut que l'on veut 
donner au fichier. 

FONCTION 61 (S3D): FOPEN 

Ouvcrturc d'un fichier. Le nom du chemin d'accds est contenu dans une chafne 
de caractdrcs terminde par 00 & l'adresse adr. Le mode d'ouverture cst aussi 
passd comme paramdtrc: 

0 = fichier en READ ONLY, lecture seule ; 

1 = ficliier en denture sculcment; 

2 = fichier cn lecture et dcriturc. 
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En Basic GFA: 

GEMDOS(61,L:adr,W:niode) 
adr : mot long ; 
mode : mol. 

adr cst l'adrcssc du tampon ct lc mot mode rcprdscnte le mode d'ouverturc que 
Ton veut donner au fichier. 

FONCTION 62 ($3E): FCLOSE 

Cette fonction f'erme le fichier donl le handle cst spdeifid cn entrde. Lors dc la 
fermeture, lc repertoire ct la table dcs allocations sent remis ft jour. 

En Basic GFA : 

GEMDOS(62, W: handle) 
handle: mot. 

le paramiilre handle reprdsenic lc handle du fichier. 

FONCTION 63 ($3F) : FREAD 

Cette fonction lit un nombre de carac teres n ft la position couranle du lichier 
spdeifid. 

En Basic GFA: 

GEMDOS(63,W:handle,L:n,L:adr) 
handle : mot; 
n.adr: mots longs. 

lc paramfctrc handle reprdsente lc handle du fichier ft lire, n est le nombre de 
caractftres it lire, et adr l'adresse du tampon ou seront placds ccs caractftres. 

FONCTION 64 ($40): FWR1TE 

Cette fonction dcrit un nombre de caractfcres n a la position courante du fichier 
spdeifid. 

En Basic GFA: 

GEMDOS(64,W:handlc,L:n,L:adr) 
handle : mot; 
n.adr: mots longs. 

le parmfctrc handle rcprdscntc lc handle du fichier it lire, n cst le nombre dc 
caractftres k lire et adr l'adresse du tampon oil seront lus les caraclftres ft dcrire. 

FONCTION 65 ($41): FDELETE 

Cette fonction ddtrui t un fichier. Le nom du chemind’accks est conienu dans une 
chaine de caractftrcs lerminde par SOO ft l'adrcssc adr. 


En Basic GFA : 

GEMDOS(65,L:adr) 
adr: mot long. 

adr est l'adresse de la chaine de caracul res determinant le chcmin d’acc£s. 




FONCTION 66 ($42): FSEEK 

Cette fonction positionnc 1c pointeur courant a l'intdricur d'un fichier. Trois 
paramdtres sont passes par la pile : unc valeur signde indiquant dans quel sens 
et de combien d’oetets on sc ddplace dans le fichier (+ ou -); l’identificatcur 
(handle) ct 1c mode dc displacement sont ddfinis de la manidre suivantc : 

0 = displacement de n octets cn partant du ddbut du fichier ; 

1 = displacement dc n octets en partant de la position courante ; 

2 = displacement dc n octets cn partant de la fin du fichier (n doit alors 
forccmmcnt dtre ndgatif). 

En Basic GFA : 

GEMDOS(66,L:n,YV:handle,W:mode) 
n : mot long ; 
handle,mode : mots. 

n est 1c nombre d'octels du displacement (signd), handle reprdsente 1c handle du 
fichier et mode rcpnSscntc 1c mode de displacement. 

FONCTION 67 ($43): FATTR1B 

Cette fonction determine ou modiftc les attributs d'un fichier. Lc nom du 
chemin d'accds est contenu dans une chatnc de caractiSres lerminde par $00 & 
l’adresse adr. On indique si la fonction est en lecture ou denture (respectivement 
0 ou 1). 

L'attribut du fichier est lui aussi passd cn paramdtre de la manidre suivantc : 
01 = fichier en READ ONLY, lecture seule ; 

02 = fichier cachd, HIDDEN ; 

04 = fichier systdme cachd ; 

08 = dcscriptcur de volume ; 

10 = dossier; 

20 = archive. 

En Basic GFA: 

GEMDOS(67,L:adr,W:op,W:attribut) 
adr: mot long ; 
op.attribut: mots. 

adr est l'adresse du tampon, op est lc numdro de l'opdration ct attribut reprdsente 
l'attribut que 1'on veut donner au fichier. 

FONCTION 68 ($44): non utilisde 

FONCTION 69 ($45): FDUP 

Cette fonction autorise la duplication du handle d’un fichier. Ainsi on a deux 
handle pourgdrerun fichier. La fonction FSEEK modi fie le handle et sa copic 
dans la mfime opdration. 

En Basic GFA : 

GEMDOS(69,handle) 
handle: mot 

handle est le handle du fichier qui doit dire dupliqud. 


245 


Bios, Xbios et Gemdos 




FONCTION 70 ($46): FFORCE 

Celle fonction force un descripicur de handle pour l'obligcr & pointer sur le 
mdmc fichicr ou pdriphdriquc qu’un autre dcscriptcur dc handle. 



En Basic GFA: 

GEMDOS(70,W:handleI,W:handle2) 

handlel,handle2 : mots. 

handlel ou handle2 sont les deux handles des lichiers. 

FONCTION 71 ($47): DGETPATH 

Cette fonction lit 1c chcmin d'accfcs (PATH) actif. II faut donncr coniine 
paramdtre l'adresse d'un tampon de 64 octets qui conlicndra le chcmin d'accds 
lu. Le second paramdtre correspond au numdro de l'unitd de disque. 

En Basic GFA : 

GEMDOS(71,L:adr,W:n) 
adr: mot long ; 
n : mot. 

adr est l'adresse du tampon ct nlc numdro dc l’unitd dc disque (0 disque courant, 
1 disque A, etc.). 

FONCTION 72 ($48) : MALLOC 

Cette fonction permet l'allocation d'un bloc de mdmoire centrale. On passe en 
paramdtre le nombre d'oetets i rdserver. Si cc nombre vaut -1, le systdme 
renvoie la laille de la plus grande zone d'un scul bloc. 

En Basic GFA: 

GEMDOS(72,L:n) 
n: mot long. 

n est le nombre d’oetets & rdserver. 

FONCTION 73 ($49): MFREE 

Cette fonction libdre une tranche de la mdmoire prdeddemment alloude par M- 
MALLOC. Le paramdtre est 1'adressc dc ddpart du bloc k libdrer. 


o En Basic GFA : 
g GEMDOS(73,L:adr) 
g- adr: mot long. 

adr est l’adresse dc ddpart du bloc it libdrer. 


FONCTION 74 ($4A): MSHR1NK 

Cette fonction diminue un espace mdmoire prdeddemment alloud par M- 
MALLOC. Les paramdtrcs sont l’adresse de ddpart du bloc et l'adresse du 
nouveau bloc. 




En Basic GFA : 

GEMDOS(74,W:0,L:adr,L:n) 
adr,n: mots longs. 

adr cst l'adresse dc depart du bloc et n cst sa nouvelle laillc, 

FONCTION 75 ($4B) : PEXEC 

Cette fonction valide le chargcmcnl el I'exdcution d'un processus. 

En Basic GFA : 

GEMDOS(75,W:op,L:adrl,L:adr2,L:adr3) 
op: mot; 

adrl,adr2,adr3 : mots longs. 

Void les paramdtrcs it passer: 
op, paramlitre de chargcmcnt: 

1 = charge et execute ; 

3 = charge sculcmcnt; 

adrl: adresse d’unechauietemiinec par $00 conlenant lcdcscripleurdu fichicr 
it charger; 

adr2 : adresse du tampon conlenant les infonnalions de redirection. Cette 
adresse cst placdc it l'octet d'adressc relative $80 (+128) par rapport it la page 
dc basedu chargcmcnt; 

adr3 : adresse d’une suite de chafncs conlenant la configuration de l'environnc- 
ment du processus. Les chafnes sont sdpardes par un octet i $00 et tennindes par 
deux octets it $00. 

FONCTION 76 ($4C) : PTERM 

Cette fonction teiminc 1c processus courant et retoume au processus appelant 
en fennant tous les lichiers ouverts. 

On passe en paramdtrc le code dc rctour. 

En Basic GFA : 

Inutilisable. 

FONCTION 77 ($4D) : non utilisee 
FONCTION 78 ($4F) : FSFIRST 

Cette fonction recherche la premiere entrde du dossier corrcspondant au nom 
spdeifid et aux aliributs spdeifids. Le nom du chemin d'accds est contcnu dans 
ime chafne dc caractdres termindc par $00 it l'adresse adr. L’altribut du fichicr 
est lui aussi passd en paramfctrc de la manidrc suivante : 

$(X) = fichicr standard ; 

501 = fichicr en READ ONLY, lecture seulc ; 

502 = fichicr cachd, HIDDEN ; 

$04 = fichicr systeme cachd ; 

$08 = descriptcur dc volume ; 

$10 = dossier; 

$20 = archive. 

Lorsqu'une entrde qui cotrespond aux specifications est trouvdc, elle formate 
une DTA et rcnvoie cette nouvelle DTA. 
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En Basic GFA: 

GEMDOS(78,L:adr,W:attribut) 
adr : mot long ; 
atiribut: mot. 

adr cst l’adresse du tampon ct altribut rcprdscntc l'attribut quc l'on veut 
rcchcrchcr. 

FONCTION 79 ($4F): FSNEXT 

Cette fonction rcchcrchc I'occurrcnce suivante d'un descripteur de fichicr 
donnd dans FSFIRST. 

En Basic GFA : 

GEMDOS(79) 

FONCTTONS 80-85 ($50-$55) : non utilises 
FONCTION 86 ($56) : FRENAME 

Cette fonction renommc un fichicr. On passe comme paramttre lc descripteur 
du fichicr original ct 1'adresse de la chainc dc caractdrcs contcnant lc nouveau 
descripteur du lichier. Celle-ci cst terminde par $00. 

En Basic GFA: 

GEMDOS(86,W:0,L:adrl,L:adr2) 
adrl,adr2 : mots longs. 

FONCTION 87 ($57) : FDATIME 

Cette fonction proedde it la lecture ou I'dcriture de la daLe ct 1’hcurc de erdation 
ou demidrc modification d'un fichier. Los paramdtres sont l'adrcssc du tampon 
qui contient la date el l'heurc, l'handlc du lichier h trailer, le type de l'opdralion 
it eflectuer (0 modification, 1 lecture). 

En Basic GFA: 

GEMDOS(87,L:adr,W:liandlc,\V:tnode) 
adr: mot long ; 
handle.modc : mots. 

adr est 1'adresse du tampon, handle rcpndsenle le descripteur du handle du 
fichicr ct mode, lc type de l'opdralion. 
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La convivial itd dc 1'Atari ST provient en grande partie des routines AES ET VDI 
qui simplifient la pnogrammation des entrdes-sorties cn offranl une interface 
logiciellc trfcs puissante : Les menus ct Ics fendlres en sont des cxcmplcs spec- 
taculaircs. 

La plupart des instructions AES et VDI sont disponibles sous une forme 
dvolude (surtout pour l'AES). Pour utiliscr la panoplie compldtc des instruc¬ 
tions et par soucis de compatibilild avec les versions antdrieures, le GFA Basic 
3.0 autorisclcs appcls it travers des fonctions GEMS YS et VDISYS, aprds avoir 
convenablement initialise les tableaux utilises : 

Pour le VDI: 

CONTRL; 

INTIN; 

PTSIN ; 

INTOUT; 

PTSOUT. 

Pour l’AES: 

GCONTRL; 

ADDRIN; 

GINTIN; 

ADDROUT; 

GINTOUT. 

Tous ces tableaux sont ulilisables sous la forme indiede habituelle (par excmple 
CONTRL(5)...) ou sous forme dc tables (par exemple INT{CONTRL+10]). 

Voici la liste des fonctions ct des instructions du GEM traitdes dans ce chapitrc : 

ADDRIN 
ADDROUT 
APPL_EXIT 
APPL_FIND 
APPL_1N1T 
APPL_READ 
APPL_TPLAY 
APPL_TRECORD 
APPL.WRITE 
CONTRL 
EVNT BUTTON 
EVNT.DCLIC 
EVNT_KEYBD 
EVNT_MESAG 
EVNT_MOUSE 
EVNT.MULTI 
EVNT_T1MER 
FORM. ALERT 


OB.TYPE 

OB_W 

OB_X 

OB_Y 

OBJC.ADD 

OBJC.CHANGE 

OBJC.DELETE 

OBJC.DRAW 

OBJC.EDIT 

OBJC.FIND 

OBJC.OFFSET 

OBJC.ORDER 

PTSIN 

PTSOUT 

RC.COPY 

RC.LNTERSECT 

RSRC.FREE 

RSRC GADDR 




FORM_B LITTON 

FORM.CENTER 

FORM_DIAL 

FORM_DO 

FORM_ERROR 

FORM.KEYBD 

FSEL_INPUT 

GB 

GCONTRL 

GDOS7 

G1NTIN 

GINTOUT 

GRAF_DRAGBOX 

GRAF.GROWBOX 

GRAF_HANDLE 

GRAF.MKSTATE 

GRAF_MOUSE 

GRAF_MOVEBOX 

GRAF_RUBBERBOX 

GRAF_SHRINKBOX 

GRAF_SLIDEBOX 

GRAF_WATCHBOX 

INTIN 



INTOUT 

MENU_BAR 

MENUJCHECK 

MENU_IENABLE 

MENU_REGISTER 

MENU.TEXT 

MENU_TNORMAL 

OB.ADR 

OB .FLAGS 

OB_H 

OB.HEAD 

OB.NEXT 

OB.SPEC 

OB.STATE 

OB TAIL 


ADDRIN 


RSRCJLOAD 

RSRC.OBHX 

RSRC.SADDR 

SCRP.READ 

SCRP_ WRITE 

SHEL.ENVRN 

SIIEL.FIND 

SHEL.GET 

SITEL.PUT 

SHEL.READ 

SHEL.WRITE 

V~H 

VDIBASE 

VDISYS 

V.CLRWK 

V.CLSVWK 

V.CLSWK 

V.OPNVWK 

V.OPNWK 

V.CLRWK 

VJJPDWK 

VQT.EXTENT 

VQT.NAME 

VST_LOADJFONTS 

VQT.NAME 

V ST.UNLO AD.FONTS 

WIND.CALC 

WIND.CLOSE 

WIND.CREATE 

WIN D.DELETE 

WIND.FIND 

W1ND.GET 

WIND_OPEN 

WIND.SET 

WTND.UPD ATE 

WORK.OUT 


ADDRIN conticnt les adrcsscs (mots longs) ndccssaires £ la fonction appeldc. 


ADDROUT 

ADDROUT conticnt les adrcsscs (moLs longs) retoumdes par la fonction 
appelde. 
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APPL_EXITO 

Cette Tonction provoque la sortie d’application AES initialisde grace a 
APPL_INIT. Cette fonction n'est que simulde par Ic GFA Basic. Elle retoume 
0 en cas d'erreur. 

APPLFIND(fichier) 

fichicr: expression alphanumdrique. 

Cette fonction rcnvoic le code d’identification d'unc application donton donne 
1c nom dc fichier (longueurobligatoirc: huitcaractdresen majuscule, dventuel- 
Icment compldtd par dcs caractlres Wanes). Lc code cst -1 en cas d'erreur. 

APPL_INITO 

Cette fonction renvoie le code d'idcntificaiion de l'application actuelle. 
APPL_READ(cndc,n,adr) 

Cette fonction litnoctcts, dans le buffer, d’adrcsscadrderapplication identifidc 
par code. 

APPL_TPLAY(adr,n,vitesse) 

adr,n,vitesse : expressions numdriques entires. 

Rdcxdcutc les dvdnements enrcgistrds par APPL_TRECORD. 

La vitesse est comprise entre 1 el 10 000. L'usagc dc ccttc instruction est peu 
conscilld. 

APPL_TRECORD(adr,n) 

adr,n : expressions numdriques ent idles. 

Enregisire une sdqucncc d’dvdncments utilisatcurs. L'usagc dc celte instruction 
cst peu conscilld. 

APPL_WRITE(code,n,adr) 

Cette fonction dcrit n octets, dans lc buffer, d’adresse adr de l'application 
idenlifide par code. 



CONTRL 

CONTRL contient les informations essentiellcs i GEM au trailement d'un 
appcl VDI: 

CONTRL(O) numdro dc la fonction ; 

CONTRL(l) nombres d'dldmcnts h utiliscr dans la table PTSIN ; 
CONTRL(2) nombres d'dldmcnts retoumds dans la table PTSOUT ; 
CONTRL(3) nombres d'dldmcnts it utiliscr dans la table INTfN ; 
CONTRL(4) nombres d'dldments retoumds dans la table INTOUT ; 
CONTRL(5) numdro d'idcntificaiion; 

CONTRL(6) numdro de la fendtre appclde. 


EVNT_BUTTON(n, masque, elal[, x,y, bouton, touchel) 
njnasquc.ctat: expressions numdriques cniidres ; 
x,y,bouton,touches : variables numdriques cnticrcs. 
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Cette fonction paramdtre et attend un dvdnement souris. Elle permet de 
connaiiic l'dtat dcs boutons et cclui du clavier cn initialisant lcs variables 
lorsque l'dvdnement attendu survient: 
n : nombrc dc dies ndccssaines; 
masque : bit 0 : bouton gauche ; 

1 : bouton droit; 

etat: bit 0 : bouton gauche onioned (si bit=l); 

1: bouton droit enfoned (si bit=1). 

La fonction rcnvoic lc nombrc dc dies et initialise les variables suivantes : 
(x,y): coordonndcs dc la souris lors de l'dvdnement; 
bouton : bit 0 : bouton gauche; 

1 : bouton droit; 
touche bit; 

Shift droit 0; 

Shift gauche 1; 

Control 2; 

Alternate 3. 

EVNT_DCLIC(t,code) 

t.code : expressions numdriques entities. 

Cette fonction dtablit le ddlai t de double die enlre 0 (lent) et 4. Si code=0, la 
fonction renvoie l'ancien ddlai et ignore lc nouveau ; si lc codc=l, la fonction 
valide le ddlai transmis. 

EVNTKEYBDO 

Cette fonction attend un dvdncmcnt clavier et rctoume un mot: code touche 
(octet poids faible), code caracldre (octet dc poids fort). 

EVNT_MESAG(adr) 
adr: mot long. 

Cette fonction attend un message dans lc tampon d’adresse adr. Si adr=0, on 
utilise lc tampon interne du GFA Basic. 

EVNT_MOUSE(code,xO,yO,largeur, hauteur, xl,yl, bouton, touche) 

Cette instruction attend 1'entrde ou la sortie (rcspcctivcmcnt 0 ou 1) du curscur 
dc la souris dans un rectangle dont le coin supdrieur gauche k pour coordonndes 
(xO.yO) et de dimension spdeifide (largcur et hauteur). Elle initialise lcs 
variables suivantes : 

(xl,yl) : coordonndes dc la souris lors de l'dvdnement; 
bouton : bit 0 : bouton gauche ; 

1 : bouton droit; 
touche bit 

Shift droit 0; 

Shill gauche 1; 

Control 2; 

Alternate 3. 
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EVNT MULTI (type,nl,bouton,ctatl,xl,yI,largeurl,hauteur I,etat2,x2, 
y 2,Iargeur2,hauteur2,adr,t,[,x,y,bouton,clavier,touche,n2]) 

Cette instruction attend divers dvdnements, Les paramdtres ont did vus dans les 
aulres instructions EVNT. 

Codage de type: 
bit: 0 Clavier; 

1 Bouton souris; 

2 Evdnement 1 (souris) ; 

3 Evdnement 2 (souris); 

4 Evdnement message; 

5 Evdnement temps. 

Les paramdtres de relour optionnels sont: 

(x,y): coonjonndcs de la souris lore de l'dvdnement; 
bouton : bouton de la souris ; 
clavier : touches spdciales (Shift...); 
louche : code touche frappde et code ASCII; 
n2 : nombre de clics cffcctuds. 

EVNT TIMER(t) 
t: expression numdrique entidre, 

Cette fonction provoque un arret lemporisd de t millisccondcs. Elle rctoume 
toujoure 1, 

FORM_ALERT(bouton, message) 
bouton : expression numdrique entidre ; 
message : expression alphanumdrique. 

Cette fonction dditc un message (alert-box) el retoumc le numdro du "bouton- 
texte 1 ' choisi : bouton=numdro du bouton validd par RETURN (0 -> 3); 
mcssagc=”[n][m][b]" n=ic6ne, m=message, b=tcxtc-boutons (voir ALERT). 

FORM_BUTTON(arbre,objetO,n,objetl) 
arbre : mot long ; 

objctO.n : expressions numdriques entidres ; 
objell : variable numdrique entidre. 

Cette fonction pcrmcl des entrdes avec la souris. Elle renvoic 0 si un objet avec 
l'dtat EXIT & dtd cliqud cn demier, sinon l’entrde n'est pas encore tcrmindc. 
arbre ddsigne l'adresse de l'arbre, objctO ddsigne l'objct lore de l'appel, n 
contient lc nombre de clics enrergistrds el objell, le nouvcl objet. 

FORM_CENTER(arbre,x,y,largeur,haut) 
arbre : mot long ; 

x,y,largeur jtaul: variables numdriques entidres. 

Cette fonction renvoic la position d'un arbre d’objets au centre de l'dcran dans 
les variables indiqudes. 
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FORM_DIAL(code,xl,y 1,1 l,h l,x2,y 2,l2,h2) 
code,xl,yl,ll,hl,x2,y2,12,h2 : expressions numdriques emigres. 

Cette fonclion gdre un 1'ormulaire de dialogue dependant du code : 

0 : reserve une zone dcran ; 

1 : effet dc rectangle en expansion; 

2 : effet de rectangle en contraction ; 

4 : libdre la zone rdservde ; 

xl,yl,ll,hl : coordonndes minimales du rectangle ; 
x2,y2,12,h2 : coordonndes maximalcs du rectangle. 

Elle retoume 0 en cas d'erreur. 

FORM_DO(arbre,objet) 
arbre : mot long ; 

objet: expression numdrique entidre. 

Cette fonclion gdre un 1‘ormulaire jusqu’d la sortie (par die dans un objet EXIT 
ou TOUCMEXIT). Elle rcnvoic un numdro (cclui objet ayant occasionnd la 
sortie). 

FORMERROR(eode) 

code : expression numdrique entidre. 

Cette fonclion affiche un message d'erreur (codes MS-DOS). Elle rcnvoic 1c 
numdro du bouton validd par l'utilisatcur. 

FORM_KEYBD(arbre,objetl,objet2 ,cart,objet3,car2) 
arbre : mot long ; 

objctl,objct2 ,carl.objcl3,: expressions numdriques entidres ; 
car2 : variable numdrique entidre. 

Cette fonction gdrc les enlrdes clavier dans un 1'ormulaire : objet 1 = objet EDIT 
courant; 

objct2 : prochain objet EDIT ; 

carl = caractdre courant; 

objel3 : objet EDIT pour l’appel suivant; 

car2 : caractdre suivant. 

Elle retoume 0 si un objet EXIT a dtd sdlectionnd. 

FSEL_INPUT(repLTtoire,fichicr,l bouton |) 
repertoire,fichicr : expressions alphanumdriques ; 
bouton : variable numdrique entidre. 

Cette fonction appcllc 1c sdlcclcur de fichicr standard, repertoire indique lc 
chemin des rdpertoires prdselectionnd, et fichier prdsdlectionnds, Au rctour, la 
variable bouton conticnt lc bouton choisi: 0 ou 1, rcspecLivementpour "Arret" 
ou "Ok". 

GB 

La table GB conLieni les adresses des tables: 

GB+0 conticnt l'adrcssc dc GCONTRL ; 

GB+8 conticnt l'adrcssc dc GINTIN ; 





GB+12 conticnt 1'adrcsse de GINTOUT ; 

GB+16 conlienl l'adrcssc dc ADDRIN ; 

GB+20 conticnt l'adrcssc de ADDROUT. 

Son intdrdt esl succinctpuisquclc GFA Basic rcconnallies tables GCONTRL, 
GINTIN, GINTOUT, ADDRIN, ct ADDROUT. De plus, die csl la seule 
table qui n’est pas accessible avee dcs indices. 

GCONTROL 

GCONTRL conticnt les informations essenticllcs & GEM au traitement d’un 
appcl AES : 

GCONTRL(O) numdro dc la fonction ; 

GCONTRL(l) taille de la tabic GINTIN ; 

GCONTRL(2) taille dc la table GINTOUT; 

GCONTRL(3) taille dc la tabic ADDRIN ; 

GCONTRL(4) taille dc la tabic ADDROUT. 

GDOS? 

Cette fonction booldenne renvoic TRUE si GDOS est chargd ct FALSE dans le 
cas conlraire. 

GEMSYS n 

n : expression numdrique entidre. 

Ccnc instruction appelle la routine AES donL le numdro cst n. 

GINTIN 

GINTIN conticnt les informations passdes cn parametres (mots) avant l'appel, 
dies difldrent suivant la fonction AES appcldc. 
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GINTOUT 

GINTOUT conticnt les informations retoumdes (mots) par la fonction aprds 
l'appel, dies different suivant la fonction AES appelldc. 

G R AFDRAGBOXQargcurl ,hauleurl,xl ,yl ,largcurO,hauteurO,xO,jO[,x2,y3]) 
largeurl,hauteurl,xl,yl,largeurO,hautcurO,xO,yO : expressions numdriques 
entidres ; 

x2,y3 : variables numdriques entidres. 

Cette fonction gdre le ddplaccmcnt d'un rectangle (largcurl, hauteurl, xl, yl) 
par l’utilisaleur it l'intdricur d’un cadre (largeurO, hautO, xO, yO). Les variables 
x2 et y3 conticnncnt les nouvelles coordonndcs du rectangle quand 1'utilisateur 
rclSchc le bouton. Elle renvoic 0 cn cas d'erreur. 

GR AF_GROWBOX(xl,yl,largeurl, hauteur l,x2,y 2, Iargeur2,hauteur2) 
xI,yI,largeurl,hauteurl,x2,y2,largeur2,hauteur2 : expressions numdriques 
entidres ; 

Figure 1'expansion d’un rectangle qui passe dc l'dtat 1 a l'dtat 2. File renvoie 0 
cn cas d’erreur. 
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GRAF_IIAND I,E(Iargeur, hauteur, Iargeur0,hauteur0) 
largcur,hauteur,largeurt),hautcurO : expressions numdriques entidres ; 

Cette fonction reloume le code station VDI. Elle initialise dgalcmcnt Ics 
dimensions (pixels) dcs caractdres (largeur,hauteur) ct cclies du rectangle 
d'inscription(largeurO,hautcurO). 

GRAF_MKSTATE(x,y,bouton,clavier) 

x,y,bouton,clavier : variables numdriques entidres. 

Cette fonction indique les coordomdcs de la souris et 1'dtat du clavier. Lc bit 0 
de bouton donite l’dlat du bouton gauche, lc bit 1 l’dtal du bouton droit. L'dtat 
du clavier suppose un test de bit: 

1 : Shift droit; 

2 : Shift gauche ; 

4 : Control; 

8 : Alternate. 

La fonction rctoumc toujours 1. 

GRAF_MOUSE(code,adr) 
adr : mot long ; 

code : expression numdrique entidre. 

code indique la forme de la souris ct adr l'adrcssc dc la table des motifs. Cette 
fonction cst dquivalcntc de DEFMOIJSE. Ellc rctoumc 0 cn cas d'erreur. 

GR AF_MOVEBOX(largeur,haut,x(1,yfl,x1 ,y1) 

Iargeurjiaul,x0,y0,xl,yl : expressions numdriques entidres. 

Cette fonction ddplacc un rectangle it l’dcran de la position 1 it la position 2. Elle 
rctoumc 0 en cas d'erreur. 

GRAF_RUBB ERBQX(x,y,largeurO,hauteurfl[,largeur l,hauleurl]) 
largcurl .hautcurl : variables numdriques entidres ; 
x,y,largeurO,hauteur(): expressions numdriques entidres. 

Cette fonction permet d’dtirer un rectangle avee la souris. les variables 
largcurl,hauteur 1 contienncnt la largeur et la hauteur du rectangle aprds 1'arrSt 
de la fonction. Ellc reloume 0 en cas d'erreur. 


GRAF_SHRINKBOX(xO,yO,10,hO,xl,yl,ll,hl) 

10,h0,ll,hl,x0,y0,xl,yl : expressions numdriques entidres. 

Cette fonction dcssinc un rectangle en contraction de l'dtat 0 it l'dtat 1. Elle 
reloume 0 en cas d'erreur. 


GRAF_SLIDEBOX(arbre,objet,poussoir,sens) 
arbrc : mot long ; 

objct.poussoir.sens : expressions numdriques entidres. 

Cette fonction ddplacc un "asccnscur graphique" (bouton-poussoir dans son 
objet parent) dans le seas horizontal (0) ou vertical (1). Elle reloume la position 
relative, comprise entre 0 ct 1000. 




GRAF_WATCHBOX(arbre,objct,eta(0,etall) 
arbrc : mot long ; 

objel.etatO.etatl : expressions numdriques cnlidrcs. 

Cette fonction change I'd tat dc 1'objel si la souris entre ou sort de sa zone 
graphique. Elle retoumc 0 (dehors) ou 1 (dedans). 

INTIN 

INTIN conticnl des paramdtres dont la longueur est sujette it dcs variations 
ndeessaires & la fonction appelde. 

INTOUT 

INTOUT conticnl une sdrie de paramdtres reLoumds par la fonction appelde. 

MENU_BAR(arbre,code) 
arbre : mot long ; 

code : expression numdiique entidre. 

Cette fonction active (codc=l) ou ddsactive (0) la bane de menu. Elle retoumc 
0 cn cas d’erreur. 

MENU_ICHECK(arbre,n,code) 
arbre : mot long ; 

n.codc : expressions numdriques entidres. 

Cette fonction coche un l'itcm du menu de numdro n si codc=0 ou l'enldve si 
code=l. Elle rctoume 0 si une erreur est apparue. 

MENU_IENABLE(arbre,n,code) 
arbre : mot long ; 

n.code : expressions numdriques entidres. 

Cette fonction ddile en grisd (codc=0) ou en mode normal (1) un item du menu. 
Elle retoumc 0 cn cas d'erreur. 

M ENU_REGIS TER(i d ,ti tre) 
id : expression numdrique entidre ; 
litre : expression alpha numdrique. 

Cette fonction place le litre de 1'acccssoirc sous le menu "Bureau”. Elle retoumc 
lc code de l'accessoire (0 -> 5) ou -1 en cas d’erreur. 

MENU_TEXT(arb re,n ,t ext e) 
arbre : mot long ; 
n : expression numdrique entidre ; 
texte : expression alphanumdrique. 

Cette fonction change le texte dc l’itcm du menu portant lc numdro n. Elle 
retoume 0 en cas d'erreur. 

MENU_TNORMAL(arbre,n,code) 
arbre : mot long ; 

n.codc : expressions numdriques entidres. 
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Celte fonction met 1c titre, portanl le numdro n, cn mode normal (1) ou inverse 
viddo (0). Elle retoume 0 en cas d’errcur. 

OB_ADR(arbre,objet) 
arbre : mot long ; 

objel: expression numdrique cntidic. 

Cette fonction donne l’adresse de l'objct dont lc numdro est spdeifid. 

OB_FLAGS(arbre,objet) 
arbre : mot long ; 

objel: expression numdrique entidre. 

Cette fonction renvoie l’dtat dcs flags dc l'objct. Effccluer un test sur les bits 
pour determiner 1'dtat: 

0:SELECTABLE; 

1:DEFAULT; 

2 : EXIT; 

3 : EDITABLE ; 

4:RBUTTON; 

5:LASTOB; 

6 : TOUCHEXIT; 

7: HIDETREE; 

8 : INDIRECT. 

OB_H(a rbre,obj et) 
arbre : mol long ; 

objel: expression numdrique entidre. 

Cette fonction renvoie la hauteur dc l’objct. 

OB_HEAD(arbre,objel)arbre : mot long ; 
objet: expression numdrique emigre. 

Cette fonction renvoie lc numdro du premier objet fils dc l'arbrc. 

OB_NEXT(arbre,objet) 
arbre : mot long ; 

objet: expression numdrique entidre. 

Cette fonction donne le numdro dc l'objct suivant (de mdme niveau) ou dc l'objct 
pdre (dernier dldment du niveau). 

OB_SPEC(arbre, objet) 
arbre : mot long ; 

objet: expression numdrique cniidre. 

Mot long (fonction du type dc l'objct). Cette fonction renvoie un pointcur sur 
les structures d'information. Voir dgalcmcnt OB_TYPE. 

20 : G_BOX Coulcur et dpaisseur de ligne; 

21 : G_TEXT Adresse structure TEDINFO ; 

22 : G_BOXTEXT Adresse structure TED1N1-0 ; 
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23 : G_IMAGE Adresse structure BITBLK ; 

24 : G_USFRDEF Adresse structure USERBLK ; 

25 : G_IBOX Couleur, dpaisseur (voir plus has); 

26 : G_BUTTON Adresse chatnc textc ; 

27 : G_BOXCHAR (voir plus bas); 

28 : G_STR1NG Adresse dc chaine ; 

29 : G_FTEX Adresse structure TED1NFO; 

30 : G_FBOXTEXT Adresse structure TFDINFO ; 

31 : G_1C0N Adresse structure ICONBLK ; 

32 : G_TITLE Adresse dc chaTnc. 

Pour G_BOXCHAR, les huit bits supdricut's sont dd finis el conllennent le code 
ASCII du caractdre.PourG_BOXCHAR,G_BOX ctG_TBOX, la definition dc 
la couleur cst codde sur quatre bits : 

Format de bits till 12222 34445555 
1: cadre (dc 0 il 15); 

2: texte (dc 0^15); 

3 : mode texte (0 : transparent, 1 : normal); 

4 : motif tramd (dc 0 d 7); 

5 : couleur intdrieure de l’objct. 

Le cadre cst code suivant la convention : 

0 : absence de cadre. 

1 -> 128 : bord du cadre situd d n pixels it I'interieur de l’objet; 

-128 -> -1 : bord du cadre situd it n pixels d 1'cxtericur de 1’objct. 

OB_STATE(arbre,objet) 
arbre : mot long ; 

objet: expression numdrique entidre. 

Cette fonction rcnvoic l'dtat de l'objet code sur 5 bits : 
bit 

0 : SELECTED ; 

1 : CROSSED; 

2:CHECKED; 

3 : DISABLED; 

4 : OUTLINED ; 

5 : SHADOWED. 

O B_T ATL(a r br e,o bj et) 
arbre : mot long ; 

objet: expression numdrique entidre. Cette fonction renvoie lenumdro dernier 
objet fils. 

OB_TYPE(arbre, objet) 
arbre : mot long ; 

objet: expression numdrique entidre. Cette fonction renvoie le type de l'objet 
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de numdro spdcifid. Voir dgalemcnt OB_SPEC. 

20: G_BOX; 

21 : G_TEXT; 

22 : G_BOXTEXT; 

23 : G JMAGE; 

24 : G JJSERDEF; 

25 : G_IBOX ; 

26 : G_BUTTON; 

27 : G_BOXCHAR ; 

28 : G_STRING; 

29 : G_FTEXT; 

30 : G_FBOXTEXT; 

31 : G_ICON; 

32 : G.TITLE. 

OB_W( a rbr e,obj et) 
arbre : mot long ; 

objct: expression numdrique entibrc. 

Cette fonction rcnvoic la largeur de l'objet. 

OB_X(arbre,objet) 
arbre : mot long; 

objet: expression numdrique entidre. 

Cette fonction renvoie l'abscissc de l'objet. 

OB_Y(arbre,objct) 
arbre : mot long ; 

objet: expression numdrique emigre. 

Cette fonction rcnvoic l'ordonnde de l'objet. 

OBJC_ADD(arbre,objctO,objetl) 

objetO,objet 1 : expressions numdriques emigres ; 
arbre : mot long. 

Cette fonction ajoule un objet i 1'arbrc. objct 0 cst le numdro de l'objet-pore et 
objet 1, l'objct-fils it ajoutcr. Elle retoume 0 en cas d'errcur. 

OBJC_CHANGE(arbre,obj,0,x,y,largeur,hauteur,etat,code) 
arbre : mot long ; 

obj,0,x,y,largeur,hautcur.dtat.code : expressions numdriques emigres. 

Cette fonction change l'dlat de l'objet ct 1c rcdcssinc (code=l) ou non (0) dans 
la zone ddlimitdc. Voir dgalement OB_STATE pour lc codage de l'dtat. Elle 
retoume 0 en cas d'errcur. 

OBJC_DELETE(arbre,objet) 
arbre : mot long ; 

objet: expression numdiiquc emigre. 



Cette fonciion supprime l'objci. Elle retoumc 0 cn cas d'erreur. 

OB JCDR A W(arbre,objetO,n,x,y,largeur,hauteur) 
arbre : mot long ; 

objctO,n,x,y,largeur,hauteur : expressions numdriques entidrcs. 

Cette fonction dcssinc l’objel (objetsO) et les objets suivants (sur n niveaux 
d'objets) dans la zone spdcifidc. Elle retoume 0 en cas d'erreur. 

OB JC_EDlT(arbre,objet,car,posilion,a>dc,curseur) 

arbre : mot long ; 

objet,car,position,code : expressions numdriques entidrcs ; 
curseur : variable numdrique entidrc. 

Cette fonction dditc un caractdre dans des objets dc type G_BOXTEXT ct 
G_TEXT et le positionne dans la chaihe d'enlrde. Au retour, la variable curseur 
conticnt la nouvelle position du caractdre. 
code : 

1 : afliche curseur, modific contcnu des chames ; 

2 : affichc caractdre valide ; 

3 : supprime curseur. 

La fonction rcnvoie 0 en cas d'erreur. 

OBJC_FIND(arbre,objetO,n,x,y) 
arbre : mot long ; 

objetO,n : expressions numdriques entidrcs ; 
x,y : variables numdriques entidrcs. 

Elle retoumc l'objct silud sous les coondonndes (x,y), avec une profondcur 
donndc n, cn commenijant d l'objct dont le numdro est objctO. Elle retoume -1 
en cas d'dchec. 

OBJC_OFFSET(arbre,objet,x,y) 
arbre : mot long ; 

objet: expression numdrique enlidre ; 
x,y : variables numdriques entidrcs. 

Celle fonction calculc les coordonndes ahsolues dc l'objct. Elle retoume 0 cn cas 
d'erreur. 

OBJC_ORDER(arbre, objet, n) 
arbre : mot long ; 

objct,n : expressions numdriques entidrcs. 

Cette fonction change Ic niveau n de l'objet. 

-1 : premier niveau ; 

0: dernier; 

1 : avant-demier,... 

Elle renvoie 0 en cas d’erreur. 




PTSIN 

PTSIN conticnt les coordonndcs passdcs cn paramdlres (mots) avant l'appcl 
dies different suivant la fonciion VDI appclde. 

PTSOUT 

PTSOUT contient les coordonndcs ou les valeurs retoumdes (mots) par la 
fonction apnds l'appcl dies different suivant la fonciion VDI appelde. 

RC_COPY adrl,x,y,largeur,hauteur TO adr2,xl,yl[,mndc] 
adrl,adr2 : mots longs ; 

x,y.largcurJiautcur.x 1 ,y 1 .mode : expressions numdriques entidrcs. 

Cette instmetion copie un rectangle dc la pagc-dcran poinlde par adrl sur la 
page-dcran poinlde par adr2. Les nouvelles coordonndcs dans la nouvdlc page 
sont (xl,y 1). mode indique le mode de copie (0-> 15) identique i celui dc PUT. 

RC_INTERSECT(xl,yl,largeurl,hauteur I,x2,y2,largeur2,hauteur2) 
xl 1 yl,lai'gcurl,hautcurl,x2,y2,largcur2,hauteui / 2) : expressions numdriques 
entidres. 

Ellc rctoume TRUE (-1) si les rectangles 1 el 2 ont une intersection (la surface 
ddlimitde cst misc dans x2, y2, largcur2, hautcur2), ou FALSE (0) dans le cas 
conlraire. 

RS RC_G ADD R(type,ohj et,adr) 
codc.objct: expressions numdriques entidres ; 
adr : variable numdrique entidre. 

Cette fonciion donne l’adresse de la structure du type donnd, dc l'objct spdeifid. 
Type de la structure : 

0 : arbre; 

1 : OBJECT; 

2 : TED1NFO ; 

3 : 1CONBLK; 

4 : BITBLK ; 

5 : STRING; 

6 : image; 

7 : obspec; 

8 : te_ptcxt; 

9 : te_ptmplt; 

10 : tc_pvalid ; 

11 : ib_pmask ; 

12: ib_pdata; 

13: ib_ptcxt; 

14 : bi_pdata; 

15 : ad_frstr; 

16 : ad_frimg. 

Ellc rctoume 0 en cas d’erreur. 




RSRC_FREE() 

Cette fonction libdre la zone alloudc <i un fichicr ressource par RSRCJ.OAD. 
Elle retoumc 0 cn cas d'erreur. 

RSRC_LOAD(fichler) 

lichier: expression alphanumdrique. 

Cette fonction charge un lichier ressource, avec allocation do l'cspace mdmoire 
ndccssaire. Elle retoume 0 cn cas d'erreur. 

RSRC_OBFIX(arbre,obj et) 
arbre : mot long ; 

objet: expression numdrique enticrc. 

Cette fonction opcrc la conversion des coordonndes objet cn pixels. 

RSRC_SADDR(type,objet ,adr) 

type,objet: expressions numdriques entidres ; 

adr : variable numdrique entidre. 

Cette fonction slocke l'adresse de la structure de type donnd (voir 
RSRC_GADDR), de l'objet spdeifid. EUe retoumc 0 en cas d'erreur. 

SCRI’_R EA D(chemin) 
clicmin : variable alphanumdrique. 

Cette fonction lit lc nom du fichicr stockd dans le tampon. Elle retoumc 0 cn cas 
d'erreur. 

SCRP_WRITE(chemin) 
chcmin : variable alphanumdrique. 

CelLe fonction dcrit lc nom du fichicr dans Ie tampon. Elle retoumc 0 cn cas 
d'erreur. 

SHEL_ENVRN(adr,chaine) 
adr : variable numdrique entidre ; 
chaine : expression alphanumdrique. 

Cette fonction recherche une chaine dans lc tampon de l'AES. 

SHELFIND(chemin) 

chcmin : variable alphanumdrique. 

Cette fonction recherche un fichicr, elle retoume Ie chemin complct si lc fichicr 
cst trouvd. ct 0 cn cas d'erreur. 

SHEL_GET(n,chaine) 
n : expression numdrique entidre ; 
chlaine : variable alphanumdrique. 

Cette fonction lit n octets dans la mdmoirc du DESKTOP.INF. Elle retoumc 0 
cn cas d'erreur. 
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SHEL_PUT(n,ch$) 

Cette fonction dcrit n octets dans 1c tampon du DESKTOP.1NF. Elle rctoumc 
0 en cas d'crncur. 

SHEL_READ(commande,nom) 
commande.nom : variables alphanumdriqucs. 

Cette fonction lit la ligne de commandos et son proprc nom. Elle retoume 0 en 
cas d'erreur. 

SHEL _WRITE(prog,tos,geni,cormnande,noni) 
prog.tos : expressioas numdriques entidrcs ; 
commande.nom : expressioas alphanumdriqucs. 

Cette fonction lance unc application avec son nom et sa ligne de commandes. 
lc programme rdsidant est effacd. 
prog : ()=retoumcr au bureau ; 

1 =chargcr le programme ; 
tos : O=programme TOS ; 

l=programme graphique; 
gem : ()=pas un programme GEM ; 

l=programme GEM, 

Elle retoume 0 en cas d'erreur. 

V~H 

Cette variable coniient le handle VDI interne au GFA Basic. II possible de fixer 
cctte variable sur unc valour quelconque par simple affectation. 

VDIBASE 

Cette variable coniient 1’adrcssc de base de la mdmoirc VDI. 

VDISYS [code[,nl,n2[,souscode]]] 
code,nl,n2,souscodc : expressions numdriques entidrcs. 

Cette instruction appelle la routine AES spdeilide par code. Ixs expressions 
facultaiives n I, n2 et souscodc indiquent respccti vement le nombre de valcurs 
dans lc tableau cniier d’entrde, le nombre de valeurs dans le tableau de coordon- 
ndcs de points et lc code d'unc sous-routine VDI & appclcr. 

VCLRWKO 

Cette fonction vide le tampon de sortie. 

V_CLSVWK(id) 

id : expression numdrique entidre. 

Cette fonction ferme unc station de travail virtuellc dont l'idcntilicateur est id. 
VCLSVVKO 

Cette fonction ferine la station de travail courantc. 
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V_OPNVWK(id,vl,v2,v3„.) 

id,v1,v2,v3... : expressions numdriques emigres. 

Si le GDOS est present, Cette fonction ouvre un dcran viitucl avec paramdtrage 
dventuel, ct retoume le handle corrcspondant a 1'idcntificateur du pdriphdrique 
transmis. Voir dgalcmmcnl I'inslruction V.OPNWK. 

V_OPNVVK(id,vl,v2,v3,...) 

id,v1,v2,v3... : expressions numdriques entidres. 

Si le GDOS est prdsent, celte fonction ouvre une station do travail, avec un 
dventuel paramdtrage ct retoume le handle corrcspondant a I'idcntificatcur de 
pdriphdrique spdeifid (mot): 


Ecran 1 ; 

Plotter 11 ; 

Imprimantc 21 ; 

FicliierMETA 31 ; 

Camdra 41 ; 

Tableur graph. 51. 


V UPDVVKO 

Cette fonction cnvoic sur le pdriphdrique conccmd les instructions graphiques 
stockdcs dans le tampon, avec une station ouverte par V_OPN\VK(). 

VQ T_EXTE NT(tex t e T,x 1 ,y 1 ,x2 ,y2 ,x3,y3,x4,y 4]) 
texte : : expression alphanumdrique ; 
xl,yl,x2,y2,x3,y3,x4,y4 : variables numdriques entidres. 

Si le GDOS est prdsent, ccttc fonction donne les coordonndes du rectangle dans 
lequel le texte transmis s’inscrit. Les coordonndes sont placdes de PTSOUT(O) 
PTSOUT(7) ou dans les variables transmises: 

(xl ,yl): coin inldrieur gauche ; 

(x2,y2): coin infdricur droit; 

(x3,y3): coin supdricur droit; 

(x4,y4): coin supdricur gauche. 

VQT_NAME(id,nom) 

id : variable numdrique entiere ; 

nom : variable alphanumdrique. 

Si le GDOS est prdsent, cette fonction donne l'idenLificatcurdcla police chargde 
avec VST_LOAD_FONTS() ct son nom. 

VSTLOADFONTS(O) 

Si 1c GDOS est prdsent, celte fonction charge les jeux de caractdrcs contenus 
dans ASSIGN.S YS et retoume le nombre de jeux cffcclivement chargds (dven- 
tuellement. nul). 

VST_UNLOAD_FONTS(0) 

Si le GDOS est prdsent, celte fonction dliminc les jeux de caractdrcs chargds 
avec VST_LOAD_FONTSQ. 
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WIND_CALC(typc,attribut,xl,yUargeurl,hauteur I,.\2,y2,largcur2,huuteur2) 
iype,attribut,xl,yl,largeurl,hauteurl : expressions numdriques emigres; 
x2,y2,largcur2,hautcur2 : variables numdriques emigres. 

Cette fonction calcule la taille de la zone de travail d’une l'enetre d partir de ses 
dimensions totalcs (codc=l) ou Ic contrairc. Elle calcule les dimensions totalcs 
connaissant les dimensions de la zone de travail (code=0). Les coordonndcs : 
x2, y2, largcur2, hautcur2 conticnncnt les rdsultats. Lc codagc dcs attributs de 
la fendtre (attribut) cst donnd dans WIND CREATE. Elle retoume 0 en cas 
d’erreur. 

WINDCLOSE(handle) 

handle : expression numdrique entidre. 

Cette fonction referme la fendtre sans la ddlruire. Voir dgalement la fonction 
WIND_DELETE. 

Elle retoume 0 cn cas d'erreur. 

WIND_CREATE(attribut,x,y,largeur, hauteur) 
attribute,y,largcur,.hauteur: expressions numdriques cnticrcs. 

Cette fonction erde une l'enetre sans l'aflicher. Le paramdtrage des composants 


dc la fendtre (attribut) cst lc 
Bit Hexa 

suivant: 

0 

&H0001 

NAME 

Titnc; 

1 

&H0002 

CLOSE 

Case de fermclurc; 

2 

&H0004 

FULL 

Case dc taille maximale ; 

3 

&H0008 

MOVE 

Barre de ddplaccmenL; 

4 

&H0010 

INFO 

Ligne d'information; 

5 

&H0020 

SIZE 

Case de redimensionncmcni; 

6 

&110040 

UPARROW 

Fldchc supdrieure; 

7 

&H0080 

DNARROW 

Fldchc infdricure ; 

8 

&110100 

VSLIDE 

Asccnseur vertical; 

9 

&H0200 

LFARROW 

Fldchc gauche; 

10 

&H0400 RTARROW 

Fldchc droite; 

11 

&H0800 

HSLIDE 

Ascenseur horizontal. 


II suffit d’additionner les codes pour oblenir un paramdtrage inldgrant plusieurs 
composants de fendtre. Elle retoume l’identificatcur (handle) dc la fendtre, une 
valeur negative s'il n'y a plus de fendire et 0 en cas d'erreur. 

WIND DELETE(handle) 

handle : expression numdrique entidre. 

Cette fonction supprime une fendtre el rdcupere l’espace mdmoire. 

Elle retoume 0 en cas d'erreur. 

WIND FlND(x,y) 

x,y : expressions numdriques entidres. 

Elle retoume lc handle de la l'enetre silude sous les coordoiuides spdeifides, et 
0 s’il n'y en a pas. 




WIND_GET(handle, code, x,y,largcur, hauteur) 
x,y,largcur,hauteur : variables numdriques entities ; 
handle,code : expression nurndrique entidre. 

Cette fonction permet d'obtenir dcs informations concern ant lc paramdtrage des 
composants d'unc fendtrc. En fonction du code transmis, les variables x, y, 
largcur ct hauteur sont diffdremment affeetdes : 
code : 

4 Coordonndcs de la zone de travail (WF_WORKXYWH); 

5 Coordonndes de la fendtre cnlidre (\VF_CURRXYW11); 

6 Coordonndcs de la l'enetre enticre prdeddente (WF_PREVXY\VT1); 

7 Coordonndes de la plus grande fenctre possible (WF_FULLXYWH); 

11 Coordonndcs du premier rectangle de rctragage (WF_FIRSTXYWH); 

12 Coordonndes du rectangle de retragage suivant (\VF_NEXTXY\VH). 

Dans ces six cas (codc=4, 5, 6, 7, 11, 12), les variables contiennent: 
x : Abscissc (x) du coin supdricur gauche ; 
y : Ordonnde (y) du coin infdrieur gauche ; 
largcur : largcur de la zone ou de la fendtrc ; 
hauteur: hauteur de la zone ou de la fendtre. 

8 x contient la position (l=bord gauche, 1000=bord droit) de l'ascenseur 
horizontal (WF_HSLJDE); 

9 x contient la position (1 =cn hauteur, 1000=lout en bas) de 
l’ascenseur vertical (\VF_VSLIDE); 

10 x contient l’identillcateur de la fendtrc active (\\T_TOP); 

13 Rdscrvd; 

15 Dimension de l'ascenseur horizontal par rapport il la ban e de ddfilemenl: 
x=-l (luille minimalc) ou coinpris entre 1 (petite), ct 1000 (WF_HSLIZE); 

16 Dimension de l’ascenseur horizontal par rapport a la banc de ddlllemcnt: 
x=-l (taille mini male) on compris entre 1 (petite) ct 1000 (WFVSLIZE). 

VVIND_OPEN(handle,x,y,largcur,hauteur) 

handle,x,y,largcur,hauteur : expressions numdriques entieres.Cette fonction 
afflche la fenetre prdeddemment erdde par WIND CREATE. Ellc reloume 0 cn 
cas d'errcur. 

WIND_S ET(handle,code,x,y,r 1 ,r2) 
handle,code : expressions numdriques entidres ; 
x,y,rl,r2 : variables numdriques entidres. 

Cette fonction modific le paramdtrage dcs composants de la fenctre spdeifide; 
cn fonciion du code, les variables x, y, rl et r2 sont diffdremment affeetdes : 

1 Choix dcs composants dc la fenfitrc (WF_KIND). x=valcur rdsullante (voir 
WTND_CREATE) ; 

2 Nouveau titre (WF_NAME). Adresse de la chafnc dans x el y ; 

3 NouvelJc ligne d'information (WF_1NF0). Adresse de la chafnc dans x el y ; 
5 WF_CURRXYWH : cf WLND_GET ; 

8 WF_HSL1DE: cf \VTND_GET; 




Routines AES et VDI 


9 WF.VSLIDE: cfWIND_GET; 

10 WFTOP: cfWIND_GET; 

15 WFJISLIZE : cf \V1ND_GET ; 

16 WFJVSLIZE: cf \VIND_GET ; 

14 Nouvel arbre tie menu Bureau (WF_NE WDESK). Elle place 1'octct fort dc 
I'adrcssc dans x, l’oclcl faible dans y et le numdro du premier obict it dessiner 
dans rl. 

WINDUPDATE(code) 

Cette foncLion indique it 1'AES que 1'application : 

0 : a termind de reiracerla fenelre (END_UPDATE); 

1 : ddbute l’opdration dc travage (BEG_UPDATE); 

2 : donne le contrOle de la souris it l'AES (END_MCTRL); 

3 : 1'application gdre lolalement la souris, l'AES nc gcre plus les menus 
(BEG_MCTRL). 

WORKOUT(indice) 

indice : expression numdrique cniidie. 

Celle fonclion retoume une valeur contcnuc dans le tableau des paramelres du 
VDI (ind : 0 -> 56). 
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TABLE DES CODES ESCAPE 

P chlrj \l*)} " Ufa 


Les sequences escape de l’dmulaleur VT 52 peuvenl etre reprises avec les 
instructions PRINT, INPUT ct OUT dans le GPA Basic. 

En void utte liste exhaustive : 


ESC A 

Le curseur monte d'une ligne (il se posilionne sur la case immddialement 
supdricurc), sauf s'il sc trouvc ddjfc sur la premiere ligne. 


esc n 

Le curseur descend d'une ligne (il se posilionne sur la case immddiatement 
infdricurc), sauf s'il sc trouvc ddjit sur la dcmifcrc ligne. 


ESC C 

Le curseur se ddplace d'une colonne vers la gauche, sauf s’il se trouvc ddja sur 
la demidre eolonne. 


ESC D 

Le curseur se ddplace d'une colonne vers la droite, sauf s'il se trouve ddjl sur 
la premiere colonne. 


ESC E 

ElTacement de l'dcran avec positiotuicment dans le coin supdrieur gauche. 


ESC H 

Le curseur se positionne dans le coin supdrieur gauche sans rafraichir l'dcran, 

ESC I 

Commando similairc il ESC A, il la sculc difference que le curseur, s'il se trouve 
sur la prcmifcrc ligne, insdc unc ligne (scrolling vers lc bas). La demidre ligne 
disparaft. 
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ESC .1 

ElTacement de l’dcran it partir de la position du curseur. 

ESC K 

Effaccment de la ligne i partir de la position du curseur. Le caractere sous lc 
curseur cst perdu. 

ESC L 

Insertion d'une ligne au-dcssus dc la position du curseur. Co demier sc place au 
ddbut de la nouvelle ligne. La demicre ligne disparait (scrolling vers le bas). 

ESC M 

Effaccment dc la ligne du curseur; celui-ci se place alors au ddbut de la ligne 
suivante (scrolling vers le haul). 
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ESC Y coIonne+32 ligne+32 

Lc curscur se posit ionnc daas la case dc coordonndes (colonnejigne). 

ESC b chiflre 

Selection dc la couleur du crayon. Le paramdtrc chiflre est fonction de la 
resolution utilisde : 0 ou 1 cn monochrome, 0 & 3 cn moyenne resolution, OH 15 
cn basse resolution. 

ESC c chiffre 

Selection dc la couleur dc fond. Le paramdtre sc comporte de la m£mc manure 
que preeddemment. 

ESC d 

Effacement dc l'dcran jusqu'H la position du curseur. 

ESC c 

Lc curseur texte devient visible; il s’agit d'un rectangle de la couleur d'dcriturc 
qui clignotc. 

ESC f 

Le curscur disparait. 

ESC j 

Memorisation dc la position courantc du curseur afin dc pouvoir le reposition- 
ncr si besoin est. 

ESC k 

Positionncmcnt du curseur H l'cndroii memorise. 

ESC 1 

El'lacemcnt dc la ligne du curscur, cclui-ci se place alors au debut dc la ligne 
ddiruite (pas dc scrolling). 

ESCo 

Effacement dc la ligne du curseur jusqu'H celui-ci. 

ESC p 

Passage cn mode video inverse. 

ESC q 

Retour au mode viddo normal. 

ESC v 

Passage cn mode d'insertion automalique de ligne. Dds que le curscur arrive en 
fin de ligne, unc nouvcllc ligne s'insdre. 

ESC w 

Annulation du mode d'insertion automatique dc ligne. 
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RECAPITULATIF DES DEFINITIONS 

DEFBIT chS 

chS : expression alphanumdrique. 

Cette instruction deSfinit unc ou plusicurs variables booldennes. 

DEFBYT ch$ 

chS : expression alphanumdrique. 

Cette instruction ddflnit unc ou plusicurs variables entires coddes sur un octet. 

DEFFLT ch$ 

ch$ : expression alphanumdrique. 

Cette instruction ddfinil unc ou plusicurs variables cn virgulc flottantc coddcs 
sur huit octets. 

DEFTNT ch$ 

ch$ : expression alphanumdrique. 

Cette instruction ddfinit une ou plusieurs variables entidres signdcs coddcs sur 
quatre octets, e’est-fc-dire un mot long. 

DEFL1ST n 

n : expression numdrique entidre. 

Cette instruction ddfinit 1c mode d'affichagcdcs variables, des procddurcs et des 
fonctions. 

0 —> les mots clefs du GFA Basic sont affichds en majuscules, les noms des 
variables, des procddurcs et des fonctions utilisatcurs sont affichds cn minus¬ 
cules ; 

1 —> les mots clefs du GFA Basic, les noms des variables, des procddurcs et des 
fonctions utilisatcurs sont affichds avee leur premidrc leltre en majuscules et le 
reste en minuscules ; 

2 --> les mots clefs du GFA Basic sont affichds en majuscules, les noms des 
variables, des procddurcs el des fonctions utilisatcurs sont affichds cn minus¬ 
cules avec le suffixe corrcspondant au type ; 

3 ~> les mots clefs du GFA Basic, les noms des variables, des procddurcs et des 
fonctions utilisateurs sont affichds avec leur premiere lcllre cn majuscules et le 
reste cn minuscules. Le suffixe corrcspondant au type est placd par le GFA 
Basic. 



DEFSTR chS 

ch$ : expression alphanumdrique. 

Cette instruction ddfinit une ou plusieurs variables alphanumdriques. 

DEFWRD ch$ 

ch$ : expression alphanumdrique. 

Cette instruction ddfinit une ou plusieurs variables entidres signdes coddes sur 
deux octets, e'est-ft-dire un mot. 
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DEFFILL fc ][,a] [,b] 

DEFFILL [c,j var$ 

a,b,c : expressions numdriques entities ; 

var$: variable alphanumdrique. 

Cette instruction a une double syntaxe. Elle pennet dans le premier cas de 
ddfinir la couleur "c" ct lc motif du remplissage avec les paramdlres "a" ct "b". 
Le paramdtre "a" indique le mode do remplissage : 

0 = vide ; 

1 = plein ; 

3 = hachurd; 

4 = ddlini parl'utilisateur. 

Le paramdtre "b" specific lc motif choisi panni vingl-quatre types dans les 
pointillds ct parmi douze dans les hachurds. 
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Pour ddfinir un motif propre, il faut conslilucr une matricc 16x16. La variable 
alphanumdrique "var$" doit rdsuller de seize concatenations successives dc 
seize bits transforms en chalncs dc caracteres par la fonclion MKIS cn haute 
resolution (un plan), de trcntc-dcux concatdnations en moyenne resolution 
(deux plans) ct de soixantc-quatre concatenations en basse resolution (quatre 
plans). 

Les paramdtres diant facultatifs, il est indispensable de mettre les virgules 
sdparatrices en lieu ct place de ceux qui sont omis. 

Voir dgalcmcnt les instructions FILL, MKI$, PBOX, l’CIRCLE, PEL- 
LIPSE et POLYFILL 


DEFLINE [type] [,largcur| [,tdebut] [,tfin] 
typc,largeur,tddbut,tfin : expressions numdriques entidres. 

Cette instruction spdeifie les ligncs utilisdes paries instructions BOX, CTRCLE, 
DRAW, ELLIPSE, LINE, RBOX et POLYLINE. Le paramdtre "type" dd- 









termine Ie type dc trait, "largcur" indique la largeur cn nombre dc points 
graphiques (pixels), "tddbut” et "tfin” donnent rcspcctivementla forme d’extrd- 
mitd & utiliscr cn ddbut et lin de ligne : 

0 = normal; 

1 = fldchc; 

2 = arrondi. 



Voir dgalcmcnt les instructions BOX, CIRCLE, DRAW, ELLIPSE, LINE, 
RBOX et POLYLINE. 

DEFMARK [c][,symbolc]!,taille] 
c.symbolc.taille : expressions numdriques enLidres. 

Cette instruction spdeifie la couleur "c” leparamdtne "symbolc" pourra prendre 
les valeurs suivantes : 

1 = point; 

2 = plus; 

3 = dtoile; 

4 = rectangle; 

5 = croix ; 

6 = losange. 

Le paramdlrc "taille" est la dimension cn pixels du symbolc utilisd lors de 
l'instruction POLYMARK. La taille peut prendre les valeurs 0, 20,40, 60, 80 
et 100. 

Voir dgalement l’instruction POLYMARK. 

DEFTEXT rc]f,type][,alplia][,hauteur] 
c,typc,alpha,hauteur : expressions numdriques entidres. 

Cette instruction pennet dc ddfinirla couleur ”c”, le "type" de caractercs : 

0 = nonnal; 

1 = gras; 

2 = clair; 

4 = italique; 
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8 = soulignd; 

16 = contour. 

Pour avoir plus d'unc caractdrislique simultandment, il sulTit d'additionncr lcs 
valeurs dcs types fondamentaux : par cxcmplc, dcriturc claire ct oblique; type 
sera 4+2=6. 

L’anglc d’dcriturc cst exprimd cn 1/10 dc degrds. 


908 


1008 _ TEXTf _ 0 
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Ix paramitre "hauteur" determine la hauteur cn pixel des caractires : 

4 = caractires contenus dans les icOnes ; 

6 = caractdres fins allongds ; 

13 = caractires normaux ; 

32 = grands caractdrcs. 

Toutes les valeurs sont admises, mais rares sont cclles qui permettent lecture 
aisde. 

Voir dgalemenl les instructions TEXT et COLOR. 

DEFMOUSE var$ 
n : expression numdrique entidre ; 
varS : expression alphanumdrique. 

Cette instruction ddfinit la forme dc la souris: 
n = 0 Fldchc ; 
n = 1 X allongd; 
n = 2 Abeille ; 

n = 3 Main avec doigt pointd ; 
n = 4 Main plate ; 
n = 5 Rdticule fin ; 
n = 6 Rdticule dpais ; 
n = 7 Rdticule avec contour. 

Si Ton ddsire donner memo le motif de la souris il suffit do ddfinir var$ 
ainsi : 

var$ = MKI$(coordonndc x du point d’action) 
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+■ MKI$(coordonnde y du point d’action) 

+ MKIS(l) 

+• MKT$(coulcur du masque) gdndralcmcnt 0 
4- MKI$(couleur du curseur) gdndralement 1 
-h M$ M$ dtant composd do 16 MK1$ 

4- CS C$ dtant composd de 16 MKTS 
voir MK1$ pour plus dc precision. 

DEFNUM n 

n : expression numdrique entidre. 

Cette instruction formate les nombnes affichds par PRINT. Sculs les n premiers 
chiffres d’un nombre sont affichds (le point decimal n'est pas pris en compte). 

KEYDEF n,chS 

n : expression numdrique entidre; 
ch$ : expression alphanumdrique. 

Cette instruction ddfinil la louche de fonclion avec la chame de caractdne 
spdcifidcd'une]ongucurmaximalcde31 caractfcrcs. Les touches FI ftFlOsonl 
respeclivemcni coddes de 1 it 10 el de 11 & 20 lorsque la touche <SHIFT> est 
simultandmcnt pressde. L’affectation dc ccs touches nestc valablc sous 1’dditeur 
du GFA Basic toutefois la touche <ALTERNATE> doit dgalcment dtre pres¬ 
sde. 
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MESSAGES D'ERREURS 

Void la lisle complete des message d'erreurs du GFA Basic : 

0 : division par 0 ; 

1 : ddpassement de capacity ; 

2 : le nombre n’csl pas un Inleger -2147483648 .. 2147483647 ; 

3 : lc nombre n'est pas un octet 0 .. 255 ; 

4 : le nombre n'est pas un mot 0 .. 65535 ; 

5 : racinc carrde d’un nombre ndgatif impossible; 

6 : logarithmc d'un nombre inldrieur a zdro impossible ; 

7 : erreur inconnue ; 

8 : mdmoirc plcinc ; 

9 : fonciion ou instruction impossible ; 

10 : chafnc trop longue, max 32767 caractdres ; 

11 :1c programme n'est pas cn GFA BASIC version 2.0; 

12 : programme trap grand, mdmoirc pleine ; 

13 : le programme n’csl pas en GFA BASIC ; 

14 : champ dimensionnd deux fois ; 

15 : champ non dimensionnd ; 

16 : index de champ trap grand ; 

17 : index de dim trop grand ; 

18 : mauvais nombre d'indices ; 

19 : procedure introuvable ; 

20 : label introuvable ; 

21 : pour OPEN, utiliser Tnput, 'O'upul, 'R'andom, ’A'ppend, ’U'pdale ; 

22 : fichier ddjil ouvert; 

23 : mauvais numdro de fichicr ; 

24 : fichicr non ouvert; 

25 : mauvaisc saisic, ce n'est pas un nombre ; 

26 : fin de fichier attcintc, EOF; 

27 : trop de points pour POLYLJNE/POLYFILL, max 128; 

28 : le champ nc peui avoir qu’unc dimension ; 

29 : nombre de points plus grand que lc champ ; 

30 : MERGE, cc n'est pas un fichier ASCII; 

31 : MERGE, ligne trop longue ; 

32 : ==> syntaxc incoiTCCie, arret du programme ; 

33 : marque non ddfinie ; 

34 : trop peu de donndcs ; 

35 : dormde non numdrique ; 

36 : erreur de syntaxc dans la donnde, utiliser les par paire ; 

37 : disquelte pleine ; 

38 : instruction impossible cn mode direct; 

39 : erreur de programmation, GOSUB impossible ; 

40 : CLEARn'estpaspossiblcdansuneboucle FOR/NEXT ou unc proeddure ; 

41 : CONT impossible ; 
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42 : trop peu de paramdtrcs; 

43 : expression trop complexe ; 

44 : fonction inddfinic; 

45 : trop dc paramdtres ; 

46 : paramdtre inexact, cc doit dire un nombre ; 

47 : paramdtre inexact, cc doit dtrc une chaine ; 

48 : OPEN "R", cnregislrement trop long ; 

49 : trap de fichicrs "R" (max 10); 

50 : pas de fichier "R”; 

51 : scul un champ est possible avec un OPEN "R"; 

52 : champ plus grand que 1'enregistrement; 

53 : trap de champs (max 19); 

54 : mauvaisc longueur d’enregistrement GET/PUT ; 

55 : mauvais numdro d'enrcgistrcmcnl GET/PUT ; 

60 : longueur dc chaine de SPRITE errondc ; 

61 : erreur dans 1'execution dc I'instruclion RESERVE ; 

62 : erreur dans MENU ; 

63 : erreur dans RESERVE ; 

64 : erreur dans poinlcur; 

65 : champ supdrieur i 256 ; 

66 : VAR-champ ? ; 

67 : erreur dans l'exdcution dcs instructions ASIN ou ACOS ; 

68 : errcur dans la ddclaration d'unc variable en VAR; 

69 : ENDFUNC sans RETURN ; 

71 : index trop grand ; 

90 : erreur dans LOCAL ; 

91 : erreur dans FOR; 

92 ; RESUME (NEXT) impossible, FATAL, FOR ou LOCAL ; 

93 : erreur dans la pile ; 

100 : (c) copyright 1986, GFA Systcmtccfmick. 
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COMPILATEUR DU GFA BASIC 2.02 



i lliniums 


liETTHflE Janai s 


Conpilateur BASIC GFA 2.62 
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Cette annexe fait rdfiJrcncc au compilatcur GFA version 2.02.11 cst Evident que 
de nouvclles mouiures pourraienl dire disponibles dans les mois qui suivront la 
parution de cet ouvrage nous ferons done des additifs dans les Editions futures 
si cela s'avdre ndeessaire. 

Lc compilatcur ndccssitc un programme Basic GFA (.BAS) done sauvegardd 
grace k l’option SAVE. En effet, il utilise lc codagc interne propre k l'intcrprd- 
tcur. Toutcs les instructions prdsentes sous l’inlerprdteurdu 2.02 sont acceptdes 
sauf celles qui sont spdcifiqucs du mode intcrprdtd. En voici la listc : 

CONI' FSAVE 

DEFLIST SAVE 

LIST STOP 

LUST TROFF 

LOAD TRON 


La compilation entraine parfois des nuances dans la signification des instruc¬ 
tions, nous les verrons cas par cas. 


LES OPTIONS DU COMPILATEUR 

L'intcrprdtcur GFA possdde unc instruction qui permet de configurer directe- 
ment le compilateur sans avoir k spdeifier ces directives lots de la compilation. 





























Cette instruction se nommc OPTION. 

OPTION "U?" 

Cette option decide de la presence ct dc I’cndroit du test dcs touches <CON- 
TROL> + <SHU=T> + < ALTERNATED 
OPTION "UO" 

Interdil le test des touches <CONTROL>+<SIi 1KI >+< ALTERNATED Cette 
option correspond it "STOPPER JAMAIS" dans la fenetre du compilateur; 

OPTION "01" 

Provoquc lc test cxciusivcmcnt it 1'cndroit du programme ou se trouve cette 
option ; 

OPTION "U2" 

Effcctuc nn test avant chacunc dcs instructions de contrdle GOTO, LOOP, 
UNTIL, WEND et NEXT. Cette option correspond i "STOPPER BOUCLE" 
dans la fendtrc du compilateur; 

OPTION "U3" 

Effectue un test aphis chaque instruction. Cette option correspond it "STOP¬ 
PER TOUJOURS" dans la fendtrc du compilateur. 

La demidrc instruction OPTION "U?" cst ccllc qui cst considdrdc commc valide 
jusqu'it ce qu'une nouvelle directive soit sdlectionnde. 

OPTION "E?" 

Cette option ddeide dc l'intdgralion dcs messages d'eneur en clair dans le 
programme compild. 

OPTION "E+" 

lntdgrc les messages d'erreur dans le programme compild. Cette option corres¬ 
pond it "Erreurs Texte” dans la fendtrc du compilateur; 

OPTION "E-" 

N'intdgrc pas les messages d'erreur dims le programme compild sculs les 
numdros des erreurs sont affichds. Cette option correspond a "Erreurs Numdro" 
dans la fenetre du compilateur. 

Ladcmidre instruction OPTION "E?" estcellequi estconsiddrde commc valide 
jusqu'a cc q’une nouvelle directive soit sdlcctionndc. 

OPTION "B?" 

Cette option ddeide de l'intdgration dcs routines d’interccplion des erreur- 
bombes dans le programme compild afin d’avoir unc chance dc preserver le 
programme lors d’une erreur-bombe (si celle-ci n’est pas fatale). 

OPTION "B+" 

lntdgrc ccs routines d'intcrccplion dans le programme compild. Cette option 
correspond it "Bombcs +" dans la fendtrc du compilateur ; 
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OPTION "B-" 

N'intggre pas ccs routines d'interception dans le programme compile. Cette 
option correspond it "Bombcs dans la fenfitre du compilateur. 

OPTION "T?" 

Cette option ddeide dc la presence du test do ddbordement dcs instmetions 
arithmdtiques emigres. 

OPTION "T+” 

Inclutunc instructionTRAPV aprds chaquc instruction conccmdc. Cette option 
correspond 1 "Trapv +" dans la fenelre du compilateur; 

OPTION "T-" 

N'inclut pas ccttc instruction. Cette option correspond h "Trapv dans la 
fengtre du compilateur. 
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+ 46 
ABS 60 
ADD 53,54 
ADDRIN 252 
ADDROUT 252 
ALERT 187 
AND 37.57 
ARRAYFILL 43 
ARRPTR 46 
ASC 67 
ATN 60 
BASEPAGE 99 
BGET 207 
BINS 54 
BIOS 219 
Bl'I'BLT 200 
BLOAD 207 
BMOVE 99 
BOX 136 
BPUT 207 
BSAVE 207 
C: 117 
CALL 117 
CHAIN 22 
CHD1R 213 
CHDRIVE 213 
CHR$ 54 
CIRCLE 136 
CLEAR 30 
CLEARW 188 
CLOSE 207 
CLOSEW 209 

clr *4 q i 

CLS 25. 188 
COLOR 137 
CONT 30 
CONTRL 253 
COS 60 

CRSCOL 25.188 
CRSL1N 25, 188 
CVD 41 
CVF 41 
CV1 41 
CVL 41 
CVS 42 
DATA 30 
DATES 105 


DEC 54 
DEFF1LL 137 
DEFFN/FN 86 
DEFLINE 138 
DEFLIST 21 
DEFMARK 138 
DEFMOUSE m 
DEFNUM 30 
DEFTEXT 139 
DFRE 213 
DIM 44 
DIM? 44 
DIR 214 
DIRS 214 
DIV 54 
DO/LOOP 86 
DPEEK 48 
DPOKE 48 
DRAW 140 
EDIT 23 
ELLIPSE 141 
END 30 
EOF 209 
EQV 38.57 
ERASE 44 
ERR 95 
ERROR 95 
EVEN 55 
EXEC 117 
EXIST 209 
EXIT IF 87 
EXP 71 
FALSE 55 
FATAL 95 
FIELD 209 
FILES 214 
FILESELECT 215 
FILL 141 
FIX 61 

FOR/NEXT 87 
FORM INPUT 27 
FRAC 61 
FRE 99 
FULLW 189 
GB 257 
GCONTRL 257 
GEMDOS 236 
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GEMSYS 257 
GET 141,209 
GINTIN 257 
GINTOUT 257 
GOSUB 88 
GOTO 88 
GRAPHMODE 141 
HARDCOPY 30 
HEX$ 42 
HIDEM 189 
HIMEM 99 
IF/ELSE/ENDLF 88 
IMP 38,57 
INC 55 
INFOW 189 
INKEYS 27 
INP 29,209 
INI 5 ? 28 
INPUT 28. 113 
INPUTS 29,213 
INSTR 67 
INT 48,61 
INTIN 259 
INTOUT 259 
KILL 209 
LEFTS 68 
LEN 68 
LET 30 
LINE 141 

LINE INPUT 27,213 
LIST 23 
LL1ST 23 
LOAD 23 
LOC 209 
LOCAL 89 
LOP 209 
LOG 62 
LOG 10 62 
LPEEK 48 
LPOKE 48 
LPOS 27 
LPR1NT 27 
LSET 68,209 
MAX 62,68 
MENU 189,200 
MENU KILL 200 
MENU OFF 200 


MTDS 69 

MIN 62,69 

MKDS 42 

MKDLR 216 

MKPS 42 

MK1S 42 

MKLS 42 

MKSS 42 

MOD 55 

MONITOR 117 

MOUSE 192 

MOUSEK 192 

MOUSEX 192 

MOUSEY 192 

MUL 55,56 

NAME 210 

NEW 25 

NOT 38,57 

OCTS 42 

ODD 56 

ON BREAK 95 

ON BREAK CONT 95 

ON BREAK GOSUB 96 

ON ERROR 96 

ON ERROR GOSUB 96 

ON GOSUB 89 

ON MENU 192 

ON MENU GOSUB 192 

ON MENU BUTTON 192 

ON MENU IBOX 193 

ON MENU KEY 193 

ON MENU MESSAGE 193 

ON MENU OBOX 193 

OPEN 210 

OPENW 211 

OPTION BASE 30 

OR 37,57 

OUT 28,210 

OU'H 28 

PAUSE 30 

PBOX 142 

PCIRCLE 142 

PEEK 48 

PELLIPSE 142 

PI 62 

PLOT 142 

POINT 142 




POKE 48 

POLYFILL 142 

POLYLINE 143 

POLYMARK 143 

POS 28 

PRBOX 143 

PRINT 28,212 

PRINT USING 28,212 

PROCEDURE/RETURN 89 

PSAVE 23 

PTS1N 264 

PTSOUT 264 

PUT 143,211 

QUIT 24 

RANDOM 63 

RBOX 144 

READ 33 

RELSEEK 211 

REM 33 

REPEAT/UNTIL 89 
RESERVE 101 
RESTORE 33 
RESUME 96 
RETURN 90 
RIGHTS 70 
RMDIR 216 
RND 63 
RSET 70,211 
RUN 24 
SAVE 24 
SDPOKE 49 
SEEK 211 
SETCOLOR 144 
SETTIME 105 
SGET 145 
SGN 62 
SHOWM 193 
SIN 64 
SLPOKE 49 
SOUND 113 
SPACES 71 
SPC 71 
SPOKE 49 
SPRITE 145 
SPUT 145 
SQR 64 
STOP 33 


STRS 64 
STRINGS 71 
SUB 56 

SWAP 43,45,59 
SYSTEM 24 
TAB 29 
TAN 64 
TEXT 145 
TIMES 106 
TIMER 106 
TITLE W 194 
TROFF 96 
TRON 96 
TRUE 56 
TRUNC 64 
TYPE 49 
UPPERS 72 
VAL 42 
VAL? 43 
VARPTR 50 
VD1BASE 266 
VDISYS 266 
VOID 33 
VSYNC 145 
VTAB 29 
WAVE 113 
WH1LEAVEND 91 
WINTAB 194 
WRITE 29 
XBIOS 224 
XOR 36,58 
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- 31 
* 45 
ABS 60 
ABSOLUTE 46 
ACHAR 181 
A CLIP 181 
ACOS 59 
ADD 53,54 
ADDRIN 252 
ADDROUT 252 
AFTER 105 
AFTER CONT 105 
AFTERSTOP 105 
ALERT 187 
ALLNE 181 
APOl.Y 181 
APPLJ3XIT 253 
APPL_ FIND 253 
APPLJNJT 253 
APPL_READ 253 
A PPL TPLAY 253 
APPL_TRECORD 253 
APPL_WRITE 253 
ARECT 182 
ARRAYF1LL 43 
ARRPTR 46 
ASC 67 
ASIN 60 
ATEXT 182 
ATN 60 
BASEPAGE 99 
BCHG 59 
BCI.R 59 
BGET 207 
BINS 54 
BIOS 219 
BITBLT 182 
BLOAD 207 
BMOVE 99 
BOUNIN ARY 136 
BOX 136 
BPUT 207 
BSAVE 207 
BSET 59 
BTST 59 
BYTE 44,45,59 


C: 117 
CALL 117 
CARD 45,47 
CFLOAT 39 
CHAIN 22 
CHAR 45 
CHD1R 213 
CH DRIVE 213 
CHR$ 54 
CLNT 41 
CIRCLE 136 
CLEAR 30 
CLEARW 188 
CLOSE 207 
CLOSEW 209 
CLR 4# HZ 
CLS 25. 188 
COLOR 137 
CONT 30 
CONTRL 253 
COS 60 
COSQ 61 
CRSCOL 25, 188 
CRSLIN 25, 188 
CVD 39 
CVF 39 
CVI 39 
CVL 39 
CVS 40 
DATA 30 
DATES 105 
DEC 54 
DEFB1T 21 
DEFBYT 21 
DEFFILL 137 
DEFECT 21 
DEFFN/FN 86 
DEFINT 21 
DEFLINE 138 
DEFL1ST 21 
DEEM ARK 138 
DEFMOUSE 158 
DEFNUM 30 
DEFSTR 22 
DEFTEXT 139 
DEFWRD 22 
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DEG 61 
DELAY 30 
DELETE 4TLJ 2. 
DFRE 213 
DIM 42 
DIM? 42 
DIR 214 
DIRS 214 
DIV 54 
DO/LOOP 86 
DO/UNTIL 86 
DO/WHILE 86 
DOUBLE 46 
DPEHK 47 
DPOKE 47 
DRAW 140 
DUMP 95 
EDIT 23 
ELLIPSE 141 
ELSE1F 86 
END 30 
EOF 208 
EQV 38,57 
ERASE 42 
ERR 95 
ERRS 95 
ERROR 95 
EVEN 55 
EVERY 105 
EVERY CONT 105 
EVERY STOP 105 
EVNT_BUTTON 253 
EVNT_DCLIC 254 
EVNT_KEYBD 254 
EVNT.MESAG 254 
EVNT_MOUSE 254 
EVNT.MULTI 255 
EVNTTIMER 255 
EXEC 117 
EXIST 208 
EXIT IF 87 
EXP 61 
FALSE 55 
FATAL 95 
FGETDTA 214 
FIELD 209 
FILES 214 


FILESELECT 215 
FILL 141 
FIX 61 
FLOAT 47 
FOR/NEXT 87 
FORM INPUT 25 
FORM.ALERT 255 
FORM.BUTTON 255 
FORM.CENTER 255 
FORM.DIAL 256 
FORM.DO 256 
FORM.ERROR 256 
FORM.KEYBD 256 
FRAC 61 
FRE 99 

FSEL.INPUT 256 
FSETDTA 215 
FSFIRST 215 
FSNEXT 216 
FULLW 189 

FUNCTION/ENDFUNC 88 
GB 256 
GCONTRL 257 
GDOS? 257 
GEMDOS 236 
GEMSYS 257 
GET 141,208 
G1NTIN 257 
GINTOUT 257 
GOSUB 88 
GOTO 88 

GRAF.DRAGBOX 257 
GRAF.GROWBOX 257 
GRAF.HANDLE 258 
GRAF.MKSTATE 258 
GRAF.MOUSE 258 
GRAF.MOVEBOX 258 
GRAF.RUBBERBOX 258 
GRAF.SHRINKBOX 258 
GRAF.SLIDEBOX 258 
GRAF.WATCHBOX 259 
GRAPHMODE 141 
HARDCOPY 30 
IIEXS 42 
HIDEM 189 
H1MEM 99 
HLINE 184 
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IITAB 25 
IF/ELS E/ENDIF 88 
IMP 38,57 
INC 55 
INFOW 189 
INKEYS 27 
INLINE 100 
INP 26,209 
INF? 26 
INPAUX 26 
INPUT 26,213 
INPUTS 27,213 
INSERT 42 
INSTR 67 
INT 48,61 
INTIN 259 
INTOUT 259 
KEYDEF 131 
KEYGET 131 
KEYLOOK 131 
KEYPAD 131 
KEYPRESS 131 
KEYTEST 131 
KILL 209 
L=A 183 
LEFTS 68 
LEN 68 
LEI' 30 
LINE 141 

LINE INPUT 27,213 
LIST 23 
LL1ST 23 
LOAD 23 
LOC 209 
LOCAL 89 
LOCATE 27 
LOF 209 
LOG 62 
LOG 10 62 
LONG 48 
LPEEK 48 
LPOKE 48 
LPOS 27 
LPR1NT 27 
LSET 68,209 
MALLOC 100 


MAX 62,68 
MENU 189,200 
MENU KILL 200 
MENU OFF 200 
MENUJ3AR 259 
MENUJCIIECK 259 
MENUJENABLE 259 
MENU.REGISTER 259 
MENU_TEXT 259 
MENU.TNORMAL 259 
MFREE 100 
MIDS 69 
MIN 62,69 
MKDS 42 
MKDIR 216 
MKF$ 42 
MKI$ 42 
MKLS 42 
MKSS 42 
MOD 55 
MONITOR 117 
MOUSE 192 
MOUSEK 192 
MOUSEX 192 
MOUSEY 192 
MSHRINK 100 
MUL 55,56 
NAME 210 
NEW 23 
NOT 36,57 
OB_ADR 260 
OB_FLAGS 260 
OB_H 260 
OB_HEAD 260 
OB_NEXT 260 
OB_SPEC 260 
OB_STATE 261 
OB.TAIL 261 
OBJ’YPE 261 
OB_W 262 
OB_X 262 
OB_Y 262 
OBJC_ADD 262 
OBJC_CHANGE 262 
OBJC_DELETE 262 
OBJC_DRAW 263 
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OBJC.EDIT 263 

OBJC_FIND 263 

OBJC.OFFSET 263 

OBJC_ORDER 263 

OCT$ 42 

ODD 56 

ON BREAK 95 

ON BREAK CONT 95 

ON BREAK COSUB 96 

ON ERROR 96 

ON ERROR GOSUB 96 

ONGOSUB 89 

ON MENU 192 

ON MENU GOSUB 192 

ON MENU BUTTON 192 

ON MENU IB OX 193 

ON MENU KEY 193 

ON MENU MESSAGE 193 

ON MENU OBOX 193 

OPEN 210 

OPENW 211 

OPTION BASE 30 

OR 35,57 

OUT 28,210 

OUT? 28 

PAUSE 30 

PBOX 142 

rciRCLE 142 

PEEK 48 

PELL IPSE 142 

PI 62 

PLOT 142 

POINT 142 

POKE 48 

POLYFILL 142 

POLYLINE 143 

POLYMARK 143 

POS 28 

PRBOX 143 

PRED 62,69 

PRINT 28,212 

PRINT USING 28,212 

PROCEDURE/RETURN 89 

PSAVE 23 

PSET 184 

PTSIN 264 

PTSOUT 264 


PTST 184 
PUT 143,211 
QSORT 44 
QUIT 24 
RAD 62 
RAND 63 
RANDOM 63 
RANDOMIZE 63 
RBOX 144 
RCCOPY 264 
RCJNTERSECT 264 
RCALL 117 
READ 31 
RECALL 211 
RECORD 211 
RELSEEK 211 
REM 31 

REPEAT/UNTIL 89 
RESERVE 101 
RESTORE 31 
RESUME 96 
RETURN 90 
RIGHTS 70 
RINSTR 70 
RMDIR 216 
RND 63 
ROL 58 
ROR 58 
ROUND 63 
RSET 70,211 
RSRC_FREE 265 
RSRC_GADDR 264 
RSRC_LOAD 265 
RSRC_OBFIX 265 
RSRC_SADDR 265 
RUN 24 
SAVE 24 
SCRP_READ 265 
SCRP_WRITE 265 
SDPOKE 49 
SEEK 211 

SELECT/ENDSELECT 90 
SETCOLOR 144 
SEl’DRAW 145 
SETMOUSE 193 
SETTIME 105 
SGET 145 


i 




SGN 63 

SHEL_ENVRN 265 
SHEL_FIND 265 
SHEL.GET 265 
SHEL_PUT 266 
SHEL_READ 266 
SHELJWRITE 266 
SHL 58 
SHOWM 193 
Sim 58 
SIN 64 
SINGLE 49 
SINQ 64 
SLPOKE 49 
SOUND 113 
SPACES 71 
SPC 71 
SPOKE 49 
SPRITE 145 
SPUT 145 
SQR 64 
SSORT 45 
STICK 109 
STOP 33 
STORE 212 
STR$ 64 
STRIG 109 
STRINGS 71 
SUB 56 
SUCC 64,71 
SWAP 43,45,59 
SYSTEM 24 
TAB 29 
TAN 64 
TEXT 145 
TIMES 106 
TIMER 106 
TITLE W 194 
TOPW 194 
TOUCH 212 
TRACES 96 
TRIMS 72 
TROPE 96 
TRON 96 
TRUE 56 
TRUNC 64 
TYPE 49 


UPPERS 72 
V: 50 

V.CLRWK 266 
V_CLRWK 266 
V_CLSVWK 266 
V_CLSWK 266 
V.OPNVWK 267 
V.OPNWK 267 
V UPDWK 267 
V~H 266 
VAL 42 
VAL? 43 
VAR 90 
VARPm 50 
VDIBASE 266 
VDISYS 266 
VOID 31 

VQT_EXTEND 267 
VQT.NAME 267 
VSETCOLOR 146 
VST_LOAD_FONTS 267 
VST_UNLOAD_FONTS 267 
VSYNC 145 
VTAB 29 
W_HAND 195 
WJNDEX 195 
WAVE 113 
WHILE/WEND 91 
W1ND_CALC 268 
WIND_CLOSE 268 
WIND CREATE 268 
W1ND_DELETE 268 
WIND_FTND 268 
W1ND_GET 269 
WIND_OPEN 269 
W1ND_SET 269 
W1ND.UPDATE 260 
WINTAB 194 
WORD 59 
WORK_OUT 270 
WRITE 29 
XBIOS 224 
XOR 36,58 
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CONSEILS DE 
LECTURE 


L'assembleur 68000 de I'Atari ST 

par Olivier Hard (Editions Cedic Nathan) 

Cet ouvrage vous presente lc microprocesseur 68000 cn d6ca.il : jeu destructions, 
adressagc, implantation en tndmoirc sur les modules Atari. Les routines du systdme 
d exploitation GEM sont ensuite ddcrites ct utilisdes dans plusicurs programmes 
(('application. Cet ouvrage, constant d'unc fa$on trd.s progressive, intdrcsscra tous les 
progratnmeurs sur Atari, ddbutanis ou chevronnds. 

Super Jeux Atari ST, Basic GFA 
par Jean-Fran^ois Sehan (Editions PS1) 

Cet ouvrage qui prdxentc 50 programmes de jeux d’adiesse, dc reflexion et de hasard, 
pcnnel au lecteur de maitriser rapidernent le Basic GFA dc l'Atari ST. Celui-ci 
apprend, cn jouant, a construirc des programmes dc plus en plus complexes en 
s'aidanl dcs commentaires pddagogiques de ('auteur ct de sa precise lisle dc variables. 
Ce livre contient des programmes facilcs k rentrer et a modifier cl cst parfaitement 
adapte aux possibility de l'Atari. 

L'Atari ST en action 

par David Lawrence et Mark England (Editions Edimicro) 

Ce livre prdsente Louies les caractdristiqucs du ST, et explique comment exploiter au 
mieux ses rcssourccs. Chacun des aspects est trade eompletement, de la fa?on la plus 
claire : Tumid ccntrale, le sous-systeme graphique, lc sous-systemc de musique, les 
peripheriques, etc. Les points importants font I'objet d'un chapilrc complet : lc 
gestionnaire de graphiques GEM, le systeme d'cxploitation TOS, lc plan de travail ct 
sa configuration, les dossiers. II apprend au lecteur k sc servir efficacemcnt dcs 
progiciels d’application, dans lous les domaincs. 

Peintre ct musicien sur Atari ST 

par Danicl-Jcan David (Editions Edimicro) 

Cel ouvrage s'adressc a tous les passionnds, qui vculcnt utiliser plcinement les 
rcssourccs graphiques et sonores dc leur Atari ST. II prdsente, de (a$on claire et 
precise, it I'aide d'excmplcs ct de nombrcuscs illustrations ct figure : les modes 
graphiques, les graphiques de geslion (courbcs, diagrammes en batons, etc), les 
graphiques artistiques ct scicntiliques (dessins cn trois dimensions, perspectives et 
rotations), les lutins (objets graphiques ddpla^ables) cl les sons (bruits, imitation 
d'instrumetus, partitions, etc). 


Clefs pour Atari ST - Nouvelle edition 
par Franck-Olivicr Lclaidier (Editions PS I) 

Clefs poor Atari ST s'adresse 8 deux types de jwrsonnes : les programmeurs sur Aalri 
ST 520, 1040 ou Mdga ST, mais aussi lcs ulilisateurs avcrtis ddsirant comprcndrc et 
mieux utiliscr lcur machine. En une dizainc de chapitrcs, l'auteur fait un tour 
d'hori/.on complet dc lous lcs sujcts intdrcssant le programmcur. Enfin rdunics dans 
un seul et mime ouvrage, prdsentees de fa^on claire ct synthdtique, vous trouvcrc/. 
dans cc Iivre toutes lcs informations dont vous avez besoin. 

Atari ST efficacc 

par Christophe Castro ct Augustin Garcia Ampudia (Editions PS1) 

Comment choisir unc forme de souris sur votre Atari ST ? Pcut-on programmer Ic 
clavier ? Qu est-ce que 1c bureau de GEM ? Quel dcran pour votre ordinatcur ? 
Comment changer la resolution de votre dcran ? Comment lire les disquettes d'autres 
ordinatcur ? Qu'est-ce qu’un objet ? En quoi consistc la copie avee un Ram-disquc ? 
Comment installer unc imprimantc ? Peux-t-on sdlectionner des objets dans unc 
fendtrc inactive ? Savcz-vous installer un acccssoire sur votre Atari ST ? Cet ouvrage 
apporte des rdponses claincs ct precises & toutes ces questions et permet dc dccouvrir 
lcs mille ct unc astuces d'ulilisation dc 1’Atari ST. 


f. Achevc d'imprimer 

par I'imprimerie Tardy Quercy S.A. Cahors 
Dop6t Idgal: avril 1989 - N” d’imprimeur: 90320 F 
N“ d'edition : 86595-557-1 
ISBN 2-86595657-5 


l 




L e Basic GFA est devenu un des standards de programmation 
sur la gamme Atari. Apprecie de tous les programmeurs, 
le Basic GFA met a leur disposition des instructions et 
fonctions evoluees dans tous les domaines tout en offrant 
une grande rapidite et une simplicity d'utilisation. 

Clefs pour GFA Basic 2 et 3 sur Atari est un ouvrage de 
reference complet qui vous apportera une information claire 
et precise sur tous les aspects du Basic GFA. 

ous decouvrirez successivement l'editeur, les commandes 
et instructions de base, les differents types d'operateurs, 
les variables, tableaux et pointeurs, les fonctions numeriques, 
le traitement des chaines de caracteres, les instructions de 
structure, la gestion des erreurs, la gestion de la memoire, 
l'horloge et les interruptions, la gestion du joystick et des 
sons, la communication avec d'autres langages, la gestion 
du clavier, le graphisme, les fenetres, les menus, la souris, 
les fichiers et repertoires, le BIOS, XBIOS, et GEMDOS, etc. 

De nombreuses annexes terminent ce livre et en font un guide 
complet pour le programmeur en Basic GFA sur Atari. 



PRIX: 135 FF 

ISBN : 2-86595-557-5 

500523 

DIFFUSE PAR P.C.V. DIFFUSION 
9, RUE MECHAIN 
75680- PARIS CEDEX 14 

























